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KIT PARA DRIVE DDX 

Composto de gabinete meta- 
llcq fonte deaiimentagao, interfa- 
ce DDX, cabo para dois "drives - , ma- 
nual e sistema operational (DOS), 
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A Diferen?a 
esta no produto 



▲ DDX MODEM PARA MICROS MSX 

Transmite e recede em 1200/75, 300/300, 
1200/1200, BELL e CCITT. Discagem automatlca 
pelo teclado do mlcromputador. Monitoragao 
de linha, rediscagem automatlca no caso de 
ocupado, atendimento automatico. Contem 
software embutido para terminal genferico, vi- 
deo texto (MSX 1 e MSX 2). Homologado pela 
TELESR 



EXPANSOR DE SLOTS DDX 

Este apareino expande cada "SLOT do micro 
MSX em 4 "SUITS' independences, possibili- 
tando ao usuarlo utllizar ate 8 "SLOTS" slmul- 
taneamente, ao invfes de 2 origlnalmente 



MEGA RAM DISK 

Esta placa e uma expansao de memOria com 
o sistema operacional DDX DOS residente e e 
apresentada em 3 modelos differences: DDX 
256, 512 e 768 Kbytes. Portanto, ela funciona 
como se fosse uma drive norma! para o 
computador. 

Para quern gosta somente de Jogos, fe reco- 
mendavel a Mega came DDX 256 Kbytes sem 
o DDX DOS residente 



Digital Design Eletronlca Ltda. 



TelS.: (011)570-1113 • 570-7471 • 575-2853 - Sao PaulO-SP 





REVENDEDORES DDX 

SAO PAULO -SP: Audicomp Tel.: 

i 011)267-3581 * Tall Comunicagao Tel: 
( 011)276-7465 * D.A.C. informatics Tel.: 
(011)871-0277 
Benny Micros Tel.: 570*1555 * Br indata 
Tel.: 864-1888 * Bruno Blois Tel.: 
223-7011 • Casa do MSX Tel: 533-2351 
• Cindtica Tel: 36-6961 * Datarecord 
Tel.: 457-9932 * Data Grind's Tel.: 
287-9909 • Datatec Tel.: 571-7083 * Ec- 
tron TeL : 290-7266 * Filcril Tel: 
220-3833 • Farad's Informatica Tel: 
36-6707 • Game of Time Tel: 581-2739 
* Nasa Tel: 914-2266 * MCC Informal t- 
ca Tel. : 262-1876 * MSX Soft Sampa Tel: 
579-8050 - MSX Informatics TeL: 
872-0730 * Misc Tel: 34-8391 * Redt- 
Universoft Tel: 825-5240 * Paul iso ft let: 
37-1814 * Play Tech Tel.: 220-1733 
SANTO ANDRF-SP: Shop Audio e Video 
Tel: 444-6055 
TAUBATESP: 4 R . Som Tei.: 
(0122)33-1855 
SAO JOSE DOS GAMPOS-SP: Igres Infor- 
matica Tel: (0123)22-9057 
ARAQATUBA-SP: Computed Tei.: 

(0186)23-3647 
SANTOS-SP: Drawfine Tel: 
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(0132)34-9813 • Datamarket Tel: 
(0132)35-7500 
JUNDiAi-SP : Ut Informatica Tel: 

{ 011)436-3322 
RIBE1RA0 PRETO-SP: ALS Tel: 

(016)636-5379 
RIO OE JANE1R0-RJ: MSX SOFT informa- 
tica Tel : (021)284-6791 
VOLTA REDONDA-RJ: 6tlca Sider Tel: 
(0243)42-1833 
CURITiBArPR: MSX SOFT Sul Informatica 
Tel: (041)233-0046 
LONDRtNArPR: Quinta Geragao informa- 
tics Tel: (0432)24-3094 
BELO HORtZQNTE-MG: Lema Tel: 
(031)212-6855 * Argus Tel.: 

(031)227-5688 • Raja informatica Tel: 

{ 031)344-4877 
BRASiUA-DF: 80S Brasilia Tel: 

(061)274-7571 • CRP Informatics Tel: 
(061)248-1165 • Ditz informatica Tel: 
(061)243-4040 
SALVADOR-BA : Micro & Penitences Tel : 
(071)359-5599 
RECIFE-PE: Qutminat Tel: (081)222-1224 
* Plavenpr Tel: (081)326-3337 
FORTALEZACE: Top Data Informatica Tel: 
(085)239-2798 • Sun Foto Tel: 
(085)244-2308 
PORTO ALFGRB-RS: Fonte Computado- 
re$ Tel: (0512)25-2286 * Digimer Tel: 
(0512)26-4395 
PELQTAS-RS: S. J. Informatica Tel..: 
(0532)25-9906 
SANTA MARIA-RS: Micro Sul Tei: 

(055)221-1069 ~ 

FLORIANOPOLIS-SC: Pratica TeL: 

( 0482)22-081 9 * Megabyte Informatica 
Tel: (0482)23-5010 
T03ARAQSC: Display Com > e Repres. 

Tel: (0486)22-1022 
MA CEIO -A L : Datas oft Te l. 

(082)223-4984 
BELEM-PA: Compubet Tel.: 

(091)223-6319 
CAMPiNA GRANDE-PB: Magno Computa- 
dores Tel: (083)321-6472 
VITORIA-ES: MSX Scorpions Tel: 

{ 027)239-2337 * IdSias Informatica Tel ; 

(027)225-6177 

GQIANIA-GD: Porto Soft Tel: 

(062)223-0111 



A DIGITAL DESIGN e uma empresa de capital genuina- 
mente nacional, voltada a industrializagao e comercia- 
lizagao de perifericos para a linha MSX. 



Atuando no mercado ha mats de tres anos r o que prova 
a seriedade cow que a empresa encara o mercado de 
MSX, a DIGITAL DESIGN desenvolveu, e vem desenvol- 
vendo, varios perifericos para o micro-computador pes- 
soal mais vendido do Brasil. 



Entre os perifericos desenvolvidos estao: o KIT DE DRI- 
VE DDX, o CARTAO 80 COLUNAS DDX, a MEGA RAM 
DISK 256 eo KIT DDX 2.0, uma placa que transforma 
o MSX 1.0 e 1.1 em MSX 2.0 com 512 cores, relogio, 128 
Kbytes de VRAM e 80 colunas embutido. 



LANCAMENTOS 



I 



O EXPANSOR DE SLOTS DDX e as MEGA RAM DISK 
512 e 768 Kbytes estao dispomveis nas nossas 
revendas 



DDX: ORIGINAL : 

TECNOLOGIA DE PONTA DEDICADA A SEU MSX: IRRESISTI- 
VEL ATE PARA SER COPIADO... EXPERIMENTE! AFINAL, 
TRATA-SE DE UM PRODUTO COM ESTA MARCA DE 
QUALIDADE: 




Digital Design Eletrdnica Ltd a. 
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Conhega a sofisticagao e magia do Sistema Grafico Aquarela. 

— Recursos completos para edigao de telas graficas. 

— Figures prontas para voce usar e ilustrar suas tel as, 

— Caracteres em Out-Line P bold, sombra no tamanho 8x8 ou 16x16. 




Nemesis: Top-Cad - MSX Computer Aided Design, ou Desenho Au- 
xiliado por Computador, Mais uma novidade em software profissio- 
nal que a Nemesis desen volveu especialmente para o seu MSX! 



JOGOS 

NOVIDADES: Terncs os ultimos langamentos. 




TEMOS IMPRESSORAS 
ELGIN LADY 80 
A PEQUENA 
NOTAVEL 



Ja temos a 
disposigao os novos 
langamentos da DDX: 

Expansor de Slots DDX e as Mega 
Ram Disk 512 e 768 Kbytes 



PACOTES: Na compra de 50, 100 e 200 jogos, uma super oferta. 
Cons u It e- nos ou pega catalogo gratis, 

PERIFERICOS: Ltnha completa de perifericos para MSX e PC. 



CONSULTE-NOS SOBRE A UNHA AM$m 



PROMOQAO: Na compra de um drive, voce ganha urn brinde espe- 
cial, Pregos abaixo do mercado. 

Transforme seu MSX 1 em MSX 2.0 pelo melhor prego (damos 
ga rant la); 

SUPRI MENTOS: Capas - Porta Disquetes - Disquetes - Livros Espe- 
cificos para MSX (Pregos promocionais com 15% de desconto) - Fi- 
tas para Impressoras. 




SOFTWARE: Educativos - Aplicativos - Utilitarios - Desenvolvemos 
tambem si sterna s especfficos para empresas. 

KIT PARA DRIVE DOX: Composto de gabinete, metalico com fonte 
de alimentagao, interface DDX com cabo de ligagao para dois dri- 
ves, sistema operacionai (DOS) e manual. 




MEGARAM DISK 256: Placa de expansao de memoria de 256 Av. Jabaquara. 1598/Saia 8 - (Ao Lado do Metro Saude) - Cep 04046 - Sao 

Kbytes, com o sistema operacionai DDX DOS residente. Paulo SP - Force: (Oil) 581-2739 
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AND IX N° 06 CAPA: CLAUDIO COSTA 

Ao leitor 

Explorar os recursos de cor de um micro PC eum dos muitos son h os dos usuanos 
dessa I inha. O prego proibitivo dos monitores RGB, no enfanto, tem direcionado 
o mercado pessoal para soiugoes mais acessfveis, via televisores adaptados. 

Nesta edigao, MICRO SISTEMAS analisa estas implementagoes e publics um 
artigo mostrando a visao dos tecnicos sobre o uso da televisao, Este tema, que sem 
duvida e apaixonante, conti nuara presente em nossas proximas edigoes, 

Outro destaque desta edigao eum novo espago editorial, chamado SOFTWARE. 
Nele apresentaremos todos os meses programas que se encontram a vends no 
mercado, Nossa preocupagao nao e exclusivamente com o ineditismo dos produtos, 
mas sim tragar ao iongo das edigoes um perfil bastante daro do mercado brasileiro. 
Nosso objetivo principal e apresentar aos leltores da revista o que o mercado tem 
a oferecer em termos de diversidade, qualidade e curiosldade para as iinhas de micros 
pessoais disponiveis no mercado brasileiro. 

No m£$ de circulagao desta edigao (agosto) entra em cena novamente a Feira 
Internacional de Informatica, que sera realizada este ano no Rio de Janeiro. Nesta 
ocasiao estaremos colocando no mercado uma edigao especial de MICRO 
SISTEMAS que trata espedficamente de drives e discos. Nela o leitor encontrara 
tudo o que sempre quis saber sobre a midia magnetica. 
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Interface Grafica 
aumenta eficiencia 
do usuario 

A Microsoft Corporation anunciou os re- 
sultados do primeiro estudo que compara os 
grandes efeitos de dois tipos de interfaces 
de software — a interface grafica para usua- 
rio (GUI — Graphical User Interface) e a in- 
terface de caractere para usuario (CUI — 
Character User Interface) - na produtividade 
operacionai. O estudo, conauzinao por Tem- 
ple, Barker e Sloane, Ina, uma firma de con- 
sultoria independent^ concluiu que GUI gera 
um maior retorno na area de investimento 
tecnologico do que uma interface tradicio- 
nal, pois os usuarios trabalham com maior 
rapidez e eficiencia, possuem maiores recur- 
sos, requerem menostreinamento e sopor- 
te, tornam-$e mais capazes de auto- 
aprendizado e expEoragao, alem de apresen- 
tarem men or frustraqao e c ansa go. 

Uma interface grafica depende mais de 
reeursos visuais do que de comandos no te- 
clado para diferenciar as fungoes no softwa- 
re. Um usuario GUI seleciona comandos de 
software reconhecendo e escolhendo um 
simbolo na tela com seu mouse. 0 usuario 
CUI no entanto, deve lembrar-se e entrar co- 
mandos muitas vezes pre-designados e nao- 
intuitivos usando o teclado, A interface gra- 
fica GUI otimiza a utifizagao do PC 
transformando-o em uma ferramenta que 
fornece acesso facll e amigavel as suas 
informaqoes. 

0 estudo, que levou 12 meses ate ser 
completado, testou as reagoes de usuarios 
iniciantes e experientes nos ambientes GUI 
e CUI em testes clfnicos, avaliagao de atitu- 
des e grupos focalized os, 0 estudo encon- 
trou evidencias Claras de beneficios do am- 
biente grafico sabre o tradidonal slstema ba- 
se ado em caracteres e uma forte p referen- 
da do usuario por sistemas graficos. 

Para garantir que as diferengas na perfor- 
mance do usuario vieram da diferenga de in- 
terface, Temple, Barker e Sloane fizeram com 
que o estudo controiasse outras variaveis, in- 
duindo o hardware usado, nivel de experien- 
da do participante, documentagao e niveis 
de curriculum, instrugdes dadas, e medidas 
das reagoes dos usuarios. 

Cl ingressa no 
mercado de COT 

A Cl-Compucenter Informatica esta lan- 
gando uma serie de ‘‘courseware" {auto- 
instrugao por computador^ desenvolvida pe- 
Ea sua divisao Cl Consult. E a estreia da em- 



presa no mercado nacional com produtos le- 
vando sua marca e a primetra iniciativa no 
Pais de produtos para CBT (Computer Based 
Trainning). 

Os primeiros titulos da %er\e 1" de cour- 
seware vao atender a demanda mais urgen- 
te do mercado de microinformatica. Sao 
eles: Microinformatica Sem Mister io, Story- 
board Plus Quadra a Quadro e ABCE do Lo- 
tus 1-2-3. 

Para a C! Consult, o treinamento indivi- 
dualizado via computador deve mudar os ru- 
mos do aprendizado durante os anos 90, 
substituindo o metodo tradicionai baseado 
em instrutor, materia! de apolo, e que exlge 
hora marcada, sala de aula e duragao defi- 
nida, Com adisponibilidade defazercursos 
no proprio ambiente de trabalho e de impor 
um ritmo natural ao treinamento, o usuario 
vai descobrii; em pouco tempo, as vantagens 
da nova modalidade de sistemas 
instrucionais. 

Os coursewares sao modularizados, per- 
mitindo ao usuario que navegue pelo progra- 
ms, evltando assuntos ja conhecidos e 
detendo-se naqueles de maior interesse, Os 
programas trabalham com textos e imagens 
integrados em frames de informagao, proje- 
tados para facilitar a assimilagao por parte 
do usuario, e gerando um alto grau de inte- 
ragao, fnstrugoessao oferecidas em resposta 
aos erros e acertos do usuario, sendo que 
qualquer uma delas pode ser revista em ea- 
so de duvida. 

A Cl ConsuEt, responsavel pelo desenvol- 
vimento dos produtos, estima que o tempo 
de aprendizado atraves do courseware e re- 
duzido em pelo menos 50% se comparado 
aos cursos ministrados tradicionaEmente pa- 
ra os mesmos conteudos. 0 nivel de reten- 
gao da informagao por parte do usuario tarn- 
bem passa a ser 25% maior. 

Mfdia langa micros 
para PMEs 

Indicado como terminal de rede, terminal 
emulador EBM , terminal PDV ou como micro 
domestico, o Mfdia XT Junior e um novo con- 
cetto de microcomputador que a Midia infor- 
matica esta oferecendo as pequenas e me- 
dias empresas, Trata-se de um modelo na li- 
nha Disk-Lass, Identico a um PC mas com ta- 
rn anho e peso reduzidos, total mente compa- 
tivef com o IBM PC/XT e com o sistema ope- 
racionai MS-DOS. Pesa apenas umtergo dos 
modelos convencionais de 16 bits e funcio- 
na com qualquer rede local nacional, como 
Amplus, Net-Mb, Novell, Cluster Tetsit, etc. 

O Mfdia XT Junior tern uma capacidade 
de membria de 256 Kbytes podendo ser ex- 
pandida para 736 Kbytes. Sua performance 
e 40% superior em 4,77 MHz ou 8 MHz se 



ROM e Nutec lanpam 
editor para o Zim 

Finallzando um periodo de desenvolvi- 
mento, RCM e Nutec assinaram um acordo 
de fomecimento de software em regime de 
"GEM" para o programs n7im. 

Desenvolvido pefa Nutec Informatica 
Ltda., no final do ano de 89, o nZim e agora 
o editor de programas ZIM oferect do e supor- 
tado pela RCM, distribuidora deste SGBD re- 
lacional para o Brasil e America Latina, 

O nZim e o primeiro de uma familia de 
editores de programas que a Nutec vai ofe- 
recer para ambientes Unix, com outros Ian- 
qamentos no segundo semestre de 90. Es- 
te tipo de produto se caracteriza pela simpli- 
cidade e facilidade de uso, alta velocidade na 
execugao de comandos e facilidades espe- 
ctficas para uma determinada finguagem, 
alem da posslbllidade de exame do diciona- 
rio de dados durante a edigao, importagao de 
nomes de entidades, relacionamentos, carrv 
pos, programagao de macros para o teclado 
(' key- words" ZIM ja inciutdas) e acesso ao 
"hefp^do ZIM dentro da edigao, 

Limasoft: MSX voltado 
para fins profissionais 

A empresa Limasoft esta voltada para o 
pequeno usuario a fim de que o mesmo pos- 
sa usar seu MSX nao apenas no lazer; mas 
tambem para finalidades profissionais. 

Asstm o pequeno empresario e o profis- 
sional liberal poderao usar seu MSX como 
poderoso instrumento para tomada de 
decisoes. 




MfOtA XT JUNIOR 



comparado com os equipamentos simi lares, 
suporta disco rigido tipo Winchester de 20 
Mbytes, uma interface paralela (printer), uma 
interface serial, um relogio de tempo real nao 
volatil e ainda uma interlace especial para lei- 
tura de codigos em barras - o Dext-200. 



6 MICRO SISTEMAS 



Monitor Multi-Sine 
chega ao mercado 

A Datanav Engenharia esta iniciando a 
praduqao de seu novo monitor em cores de 
19 ” f o MVA-192/V-MS, que possui caracteris- 
ticas de multi-sincronizagao dentro de urn a 
extensa gam a de frequences. O Multi-Sine 
e o primeiro monitor com tais caractensticas 



MONITOR MULTTSINC 

Novas versoes 
do Samba e ABC 

A PC SOFTWARE, empress produtora dos 
softwares Samba — Planilha eletronica com 
capacidade grafica e banco de dados, e o 
ABC, editor de textos, esta langando novas 
versoes mais avanqadas de seus ja tradicio- 
nais produtos. 

No caso do ABC f a Empresa esta apresen- 
tando uma grande novidade no mercado de 
editores de textos, ou seja r possibilidade de 
visuatizagao do texto na tela, como sal na im- 



em fabricagao no Pais, possuindo a capaci- 
dade de se autoconfigurar para frequencias 
de deflexao horizontal de ate 37Khz e de de- 
flexao vertical de ate QOKhz. 

O MVA 192/V-MS possibitita mudangas 
automaticas de diferentes configuragoes 
graficas, podendo operar com resolugoes de 
640 x4S0(VGA), 800x 600 (Super VGA) e 
1024/68 (VGA Estendido). Apresenta 256 co- 
res para resolugoes de ate 640x480, sendo 
ideal nas apficagoes das areas de processa- 
mento de imagens, artes graficas e CAD 3D. 



pressora, com oifo tipos co be ados a sua dis- 
posigao, o quefacilita a vida do usuario que 
antes era obrigado a imprimir os textos pa- 
ra verificar o resultado final, O ABC tambem 
trabaiha com texto infinito, ou seja t o limste 
e o hardware. Alem disso a nova versao con- 
tara com o maior cornetor ortografico do 
mercado brasileiro, de 1.000.000 de palavras 
de acordo com oDicionario Aurelio Buarque 
de Hoianda Ferreira, o qual interativamente 
conduzira o usuario a grafia dos textos. 

Com relagao ao Samba, a PC Software es- 
ta langando uma novafungao revolucionarb 
opcional, permitindo a confecgao de plani- 
Ihas em 3D r sendo que a versao atual conti- 
nuara a ser comerciaiizada. 



Gerenciador de 
Mala-Direta 

A Brother's Informatica, empresa dedica- 
da a elaboragao de programas para micro- 
corn pula do res, depois de passar alguns me- 
ses elaborando e estudando e Gerenciador 
de Mala-Direta, chegou a urn produto final 
com qualidade, que alem de possuir as reti- 
nas simples encontradas em outros progra- 
mas, contem rotinas, nao encontradas nos 
mesmos, que tem por finalidade facilitar o 
manuseio e economizar tempo nos proces- 
ses de control e envolvidos. 

0 Gerenciador cria seu proprio arquivo de 
banco de dados, mas, se o usuar io ja possui 
um pronto, podera utiliza-lo sem problems, 
observando a compatibiiizagao do tipo e no- 
me dos campos, o que podera ser feito pelo 
proprio dBase I II Plus, 0 programa permite 
que se faga backup, ga rant in do a integri da- 
de do arquivo no caso de perda addental, 
(pode ser feito backup para qualquer drive e 
qualquer subdiretorio); apagar qualquer ar- 
quivo sem sair para o DOS e mudar o PATH 
(rota) na busca de arquivos (somente de unt- 
dade de drives A: , B: ou C:). 

Alem disso permite a selegao de 13 dife- 
rentes formates de etiquetas, desde tama- 
nho ate numero de carreiras; a selegao dos 
campos que comporao o relatorio; o many- 
seio e a manutengao do banco de dados 
com as seguintes opgoes: APPEND, 
SEARCH, REPLACE e DELETE. 0 acesso aos 
registros e feito atraves do codigo do item 
armazenado. 

No entanto os relatorios so poderao ser 
impresses se forem configurados pel a opgao 
Configure -Report, Nos relatorios os usuarios 
poderao inserir um cabegalho, escolher a lar- 
gura do formulario, espago duplo e a com- 
pressao dos caracteres. 

Todas as mensagens e menus estao em 
ingles, para facilitar aqueies que ja utilizam 
o dBase 111 +. Por estar em outra lingua, hou~ 
ve o cuidado de colocar mensagens face is 
e objetivas. Para aqueies que nao estao acos- 
tumados com ingles, ha uma outra versao, 
que traz a tradugao dos menus e 
mensagens, 




PI ACGIP CASTT MGY JOGOS: Temos a cole 5 ao completa 

1 I»I3A APLICATIVOS: Os m el h ores do mercado 


JOGOS PARA MSX 1 e 2, MEGAROM E APLICATIVOS 
TEMOS OS ULTIMOS LAMQAMENTOS 

ATEN DEMOS TODO 0 BRASIL 

SOLICITE NOSSO CATALOGO GRATIS 

CLASSIC SOFT MSX 

Rua Joao Cordeiro, 489 — CEP 02960 — Freguesia do 6 
Sao Paulo-Capital FQNE (011)875-4644 


ULTIMAS NOVIDADE3 




PROMOQAO DO MES 


1 0 - BLftCK-StGER, TEtCION, SM URS, SIDER, B16E, 
ETC 1.0 MEGARAM - FLIGHT SIMULATOR, KING 
KNIGHT DAIVA, CROSS SLAIN, ETC, 2.0 MEGARAM 
. SPACE MAMBO, R-TYTE, RACING CARR BASE BALL 
2, ETC. 

GARANTIMOS TOTALMENTE 
NOSSOS PRODUTOS 




CADA 10 JOGOS 1 GRATIS 1 

JOGOS SIMPLES 40,001 

JOGOS ESPECIAIS 60,00 ■ 

MEGAROM 1 e 2 J0 r 00| 

2.0 NORMAL 50,001 

APLIC. A PARTIR 50,001 

GRAVAQAG FITA K7 ACRES 10,001 










COLETOR DE DADOS CMC 



Compilador para PC 

A CMC esta langando um compilador pa- 
ra PC, que ira permit ir ao proprio usuario de 
um coletor desenvolver o programa especi- 
fico para sua necessidade, visando a adequa- 
gao do coletor a sua final idade especffica de 
uso. Para Chaim Bulge, diretor da CMC, o 
compilador (programa residents no PC que 
transforma a linguagem-fonte em linguagem 
de maquina) tornarao usuario independent 
te na area de programagao" 

0 coletor de dados CMC e um microcom- 
putador supercompacto, portatil, pesando 
apenas 300 gramas. Funciona a pilha ou a 
energia eletrica. Pode ser utilizado para trans- 
missao e recepgao de dados relatives a pe- 
ri idos de vendas, control e de estoque, infor- 
magoes sobre pnegos, inventarlos e um sem 
numero de outras aplrcagdes. A comunica- 
gao de dados pode ser feita, tanto na recep- 
gao como na transmlssao, atraves de cabo 
plugado dlretamente ao microcomputador 
ou tarnbem via telefone, atraves de um mo- 
dem ou com uso de um acoplador acustico 
embutido ao coletor, que se encaixa direta- 
mente e sem fios ao bocal do telefone. 



Programas enriquecem 
o Ventura 

A BraSoft acaba de incluir em sua linha 
de editoragao eletronica (DTPdesktop publis- 
hing) novos programas que vao enriquecer 
os trabalhos desenvalvidos com o Ventura. 
Como forma de atrair os consumidores po- 
tencies nessa area, a Brasoft esta langando, 
com exclusividade, o Ventura Plus. 

Trata-se de uma versao composta pelo 
proprio Ventura Publisher 2.0, pelos softwa- 
res VP-Transfer e VP-Acent e que vem aeom- 
panhada, ainda, por um mouse Digigraf, gra- 
gas a um acordo firmado recentemente en- 
tre esta empresa e a BraSoft O VP-Transfer 
foi desenvoivido para converter textos dos 
principals processadores, mantendo acen- 
tuagao em lingua portuguesa enquanto o 
VP-Acent permite ao Ventura acentuar dire- 
to pelo teclado, como uma maquina de 
escrever 

Para transformar uma tela comum em pa- 
gina inteira, a BraSoft esta trazendo ao mer- 
cado brasileiro o programa Softer Kicker, que 
elimina o uso de barras de deslocamento e 
a necessidade de redesenhar textos, grafi- 
cos e imagens. Ele reduz de 5.0 para 0.1 se- 
gundo o tempo para se obter uma visao re- 
duzida da pagina, etevando em cerca de 
30% a produtlvidade do Ventura. 

"VP to the Max 11 e o nome do corretor or- 
tografico em ingles que trabalha junto com 

Avangada tecnologia 
em perifericos 

Empresa constituida ha cerca de um ano, 
a Adespro Tecnologia esta concluindo acor- 
do de transferencia de tecnologia com a Plus 
Development Corporation, pertencente ao 
grupo norte-amencano Quantum. Atraves do 
acordo a Adespro Tecnologia pretende intro- 
duzir no tnercado interno, a medio prazo, 
uma linha de produtos sem similar tecnolo- 
gico no Pais. 

0 Hardcard, winchester em placa que por 



o Ventura, evitando que o usuario tenha que 
sair deste programa para buscar recursos de 
um processador de texto r alem de tarnbem 
reatizar fungoes de busca e troca e possuir 
um dicionario de sinominos. A BraSoft esta 
em negociagoes com a Aristocad lnc. r fabri- 
cante do JJ VP to the Max 1 ’ para elaborar um 
corretor em portugues. 

Zoom duplicado, orientaqao de pagina 
vertical e horizontal e drivers para van os ti- 
pos de resolugao de tela sao alguns dos re- 
cursos oferecidos pelo programa More Win- 
dows. Seguido a linha do Softer Kicker, ele 
permite a um monitor EGA ou VGA, mono- 
cromatico, emular na tela uma pagina intei- 
ra de 19 polegadas, alem de aumentar em 
mais de 30% a produtividade do Ventura. 

Nos trabalhos editorados eletronicamen- 
te, a qual Idade das impressoras e de funda- 
mental importancia. Fensando nisso, a Bra- 
Soft trouxe para o mercado brasileiro o pro- 
grama Ultra Script PC Plus que transforma 
qualquer impressora, inclusive as matnciais, 
em impressora padrao PostScript. Esse soft- 
ware possui cinco famflias de tipos com 47 
fontes no total, alem de fontes para sinais de 
marca registrada, trade mark, etc. 

Completa a linha de DTP da BraSoft o pro- 
grama VP-Manager, Capaz de organ izar e ad- 
ministrar todos os arquivos (nao apenas os 
do Ventura), ele cria diretorios, renomeia, co- 
pia e move arquivos. Alem disso, gera rela- 
tor! os detalhados de ca pi tubs, to I has de es- 
tilo e apendices, controlando o andamento 
dos trabalhos e mantendo anotaqoes atua- 
lizadas do estagio de cada edigao. 



sua cone ep gao meeanica tornou-se um dos 
langamentos de maior aceitagao no merca- 
do mundial de perifericos, e o Passport, dis- 
co removfvel que pode ser instalado interna 
ou externa mente ao micro, sao os primeiros 
itens desenvolvidos pela Plus Corporation 
que a Adespro Tecnologia vai produzir no Bra- 
sil. O passo seguinte preve a fabricagao de 
scanners inteligentes. 

A opgao por essa linha de produtos nao 
foi casual, mas baseou-se na constatagao de 
que os usuarios nacionais estavam recepti- 
vos a solugoes de afta tecnologia e, conse- 
quentemente, melhor performance, na area 
de armazenamento de dados. 



Gaucho compra o MSX na Digfmer. 




REVENDEDOR AUTORIZADO DDX. 

COMPLETA UNHA HP. 

MODEM - MOUSE - DRI VERS - MONITORES. 

CONHE^A AS OFERTAS SEMANAIS. 



DiGiHIER 

Rua Cel, Vicente, 459 - Centro 
Porto Alegre - PS - CEP 90.030 
Fone: (0519) 26-4395 



Equipamentos para 
projeqao de software 

A Fbtoptica — Dtvisao de Eventos e Loca- 
goes acaba de importar equipamentos de ul- 
tima geragao destinados a projegao de au- 
diovisuals gerados em software. Os equipa- 
mentos sao o Video Pmjetor Sony VPH 1031, 
fabricado no Japao, e o Data Show da 3M, fa- 
brtcado nos EUA* Ambos permitem a proje- 
gao de imagens em alta resolugao, com efei- 
tos de animagao a partir de um microcom- 
putador PC com piaca EGAou VGA, para uti- 
lizagao em conferences, palestras, etc. Tam- 
bem geram imagens com placas CGA, de 
baixa resolugao. 

A Divisao de Eventos e Locagoes da Fo- 
toptlca tambem produz as telas de compu- 
tagao grafica sonorificadas, a partir de um ro- 



teiro elaborado conjuntamente com a err> 
presa interessada que, dependendo de suas 
necessidades, alem da produgao das teias 
pode alugar os equipamentos de projegao 
(teloes) com operador tecnico, assim como 
o microcomputador; as ptacas e os equipa- 
mentos de audio. 

As vantagens em reEagao a os sistema s 
tradicionais de projegao sao varias. A proje- 
gao em software permite altera goes de ulti- 
ma hora nas informagoes a serem mostra- 
das; o audiovisual e gerado em tempo mui- 
to menor e suas imagens, em alta resolugao, 
podem conter efeltos de animagao. 

0 Videoprojetor Sony projeta imagens em 
teloes de 50 a 250 polegadas, sendo ideal 
para grandes ambientes, 0 Data Show da 3M 
(uma tela de crista! Itquido que recebe ima- 
gens do PC e acopla-se sobre um retoproje- 
tor comum) e indicado para pequenos 
ambientes. 




MONITOR VDC 901 



Monitores de 
terceira geracao 

A Videocompo esta langando no merca- 
do o monitor Coior VGA, com tecnologia de 
terceira geragao, em padrao VGA, que pro- 
porciona alta resolugao grafica na tela, com 
projegao de 256 cores simultaneas, 0 mo- 
nitor VGA da Videocompo (o prime! ro com fa- 
bricagao em serie no Brasil) apresenta reso- 
I ugao de 640 por 840 pontos, que permitem 
maior densidade de informagoes na tela, 
sem provocar cansago visual. G equipamen- 
to e indicado para aplicagbes de editoragao 
grafica (desktop publishing), CAD-CAM e de- 
nials apHcagoes convencionais. Seu tubo e 
componentes indutivos sao importados do 
Japao. 

Outro langamento da Videocompo e o 
monitor VDC 901, cujo gabinete e feito em 
termoplastico injetado (ABS), materia-prima 
de padrao internacional de qualidade, que 
permite design e acabamentomais avanga- 
dos. O monitor VDC 901 possui tela em fos- 
foro vende ou branco (monocromatico), com 
resolugao de imagem superior aos monito- 
res de seu padrao (800 por 525 pontos). 




PROJETORES DE SOFTWARE 
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HARDWARE 



• Micro Expert 

• Drive 51/4 e 31/2 

• lmpressoraLady80 

• Monitores 

• Kit 2.0 

• Mega-Ram c/Ramdisk 

• Kit Turbo (aumenta clock p/5.7 mgh.) 

• Modem -Interface 

• Placa80colunas 

• E muito mats. 



PE$A RIOSOFTNEWS GRATIS 



SOFTWARE 



Nemesis • XSW • Pr^ctica • Orionsoft 

• Paulisoft • Cibertron • Softnew 

• Engesoft • Aleph 

E mats, suprimentos em geral. 

Ligue Logo, Enviamos 
Para Todo o BRASIL Via Sedex 



TEL. (021) 264.3726 



RIOSOFT INFORMATICA LTDA. 

R, Conde de Bonfim, 346 Ij. S3- 107 - Tijuca 
Rio de Janeiro - RJ - 20520 Tel: (021)264-3726 









MF 88 TR: 0 Primeiro 
Disk-Less Microtec 

Com o objetivo de ampJiar sua participa- 
te entre usuarios de redes locais, a Micro- 
tec esta langando o MF-88 TR, seu primeiro 
terminal inteJigente de rede, baseado na ar- 
quitetura do microcomputador MF 88 ja tra- 
dicional no mercado. 0 novo produto e uma 
estate disk-less (sem discos ngidos ou fie- 
xEveis), que utiliza os perifericos da estagao 
sefvrdora da rede. 

Para o desenvolvimento do produto, a Mi- 
crotec eliminou todos os recursos dispense 
veis ao microcomputador, quando utilizado 
como terminal de rede, e aproveitou a tecno- 
iogia ja disponivel na linha de produto do 
MF 88. Esses dois fatores combinados (eco- 
nomia no desenvolvimento e na configura- 
gao do produto) trouxeram uma queda de 
30% no custo final da estagao, oferecendo 
novo incentive para o mercado de redes. 

pcAnywhere entra 
no mercado 

0 pcAnywhere, software para acesso re- 
mote de programas desenvol vido pela DMA, 
entra no mercado brasileiro distribuido pela 
7C0Mm, 

Facif de operar, o pcAnywhere acessa, 
controia, monitora, testa e execute qualquer 
programs no PC remoto, onde quer que es- 
te esteja, alem de receber e transferor arqui- 
vos via tefefonica comum. 0 acesso ao mi- 
cro remoto e seguro e protegido por senbas 
especfficas para usuarios e programas de- 
terminados, gravando todas as ocorrencias 
durante a conexao. PossibiHta ainda o uso de 
impressora figada ao micro remoto, e o dia- 
logo entre opera do res. 

Desenvofvido pela DMA (Dinamic Micro- 
processor Associates) e distribuido interna- 
cionalmente pela EKD Computer Safes and 
Supplies Corp, o pcAnywhere teve seu cadas- 
tramento aprovado pela SEI, para ser distri- 
buido no Brasil pela 7C0Mm, 

Occidental School 
muda de enderego 

A Occidental School, especializada em 
cursos tecnicos na area da Informatics esta 
instaiada agora em novo enderego: Av Sao 
Joao, 1588 — segunda Sobreloja - Sao Pau- 
lo - SR - CEP 01260. Correspondencia para 
Caixa Postal 30.663 - Sao Paulo - SP - CEP 
01051 




BIT SYSTEM 



Bit System ■ o 
videogame da Dismac 

Deeididamente chegou a vez dos jogos 
eletronicos traduzida atraves dos videoga- 
mes de terceira geragao que tern alta defi- 
nigao e cartuchos com grande capacidade 
de memoria. Verdadeira febre no Japao e nos 
Estados Unidos. No Brasil eles tern mercado 
potencial estfmado em um mifhao e meio de 
cartuchos e meio milhao de consoles para 
este ano. E para disputa r uma fatia deste co- 
bigado mercado que a Dismac Janga o Bit 
Sykem. 

0 videogame da Dismac possui um sis- 
tema compativef com o da Nitendo onde a 
insergao de cartuchos e semelhante a exis- 
tente em aparelhos de video-cassetes, com 
as fitas ficando por inteiro dentro do apare- 
Iho, o que proporciona maior protegao e con- 
sequents me nte mais durabrlidade aos car- 
tuchos, resultando num mefhor desempe 
nho dos jogos, 0 console tambem aceita car- 
tuchos de outros fabricates como o Phan- 
tom, o Dynavision II e o Top Game mediants 
a adaptagao de um conversor proprio. 

0 Bit System tera cartuchos de 24 a 60 
K de memoria, com 72 pinos De inicio ele 
oferecera ao consumidor cerca de 20 jogos 
entre os quais os mais conhecidos sao o Pro- 
Wrestling, o Seicross, o Ninja 3, o Arkanoid, 
o The Legend of Kage e o Elevador Action. 

Explorado desde o ano passado, o setor 
de videogames de terceira geragao mostra- 
se bastante promissor. So nos Estados Uni- 
dos o setor faturou em 89 cerca de US$ 3,4 
bilboes. 0 mesmo sucesso devera acontecer 
com o consumidor brasileiro, avido por 
novidades. 

Um servigo teteleatendfmemto ao efien- 
te foi criado pela Dismac. Trata-se de uma li- 
nha telefonica que funciona no numero (Oil) 
825-3588 durante o horariocomercial, que 
responded qualquer duvida do consumidor 
sobre o Bit System, desde dicas sobre como 
veneer os obstaculos de cada eta pa de um 
jogo ate informa goes sobre servigos de as- 
sistencia tecnica. 



Expansao do sistema 
Euclid-IS 

0 sistema Euclid-IS, dedicado a solugoes 
de CAE/CAD/CAM baseadas em modelagem 
de solidos, aumenta em 1990 sua penetra- 
gao no segmento aeroespacial norte- 
americano. A Lockheed, sexta maior Indus- 
tria do setor nos Estados Unidos, apos im- 
plantar 43 estagoes graficas no ano passa- 
do, decidiu para este ano ampliar seu siste- 
ma Euclid-IS para um total de 140 estagoes, 
num crescimento real de mais de 200%. 

Atuando em setores de tecnologia de 
ponta, a Lockheed e a responsavei pela fa- 
bricate do satelite de comunicagao Milstan 
do mfssil balistico Trident II e de di versos 
avioes mllitares, Fbssuia tambem sua propria 
empresa de CAD/CAM, a CADAM inc., recen- 
temente adquirida pela IBM. 

A escolha do sistema Euclid-IS foi realiza- 
da apos extensos testes comparatives com 
outros produtos e significou uma grande Vi- 
toria para a Matra Datavision, empresa fran- 
cesa que o desenvoive. No Brasil o Euclid-IS 
e represents do com exclusividade pela Com- 
pugraf e vem sendo utilizado com sucesso 
por inumeras empresas. 

Interface para boot 
remoto 

Tendo em vista a adogao cada vez maior 
de estagoes "diskless" por parte das empre- 
sas nacionais, a Prisma Comunicagoes Digi- 
tais langou recentemente o PrisBoot, uma in- 
terface com su porte para boot remoto que 
permite a uttlizagao dessas estagoes em 
rede, 

0 produto possibility ao usuario entrar dt- 
retamente em seu aplieativo, evitando os da- 
nos com a proiiferagao de virus nas empre- 
sas, aumentando a produtividade atraves da 
impossibilidade de radar programas nao con- 
dizentes com os objetivos das empresas e 
inviabifizando tentativas de efetuar copias 
nao autorizadas, Tambem possui como par- 
te integrante um software para teste da es- 
tagao e teste de comunicagao entre esta- 
goes, e esta sendo especialmente utilizado 
em apflcagdes com os softwares Novvel e 
PCSA/PC Client, ambos cormecializados pela 
Prisma, 

Em complemento a essa Jinha foi fanga- 
da a PriStation, uma estagao dedicada "disk- 
less'' para redes locals, composta de CPU In- 
tel 8088, interfaces paralela e serial, contro- 
Jador de video e monitor CGA monocroma- 
tico, memoria RAM 768Kb, memoria ROM 
32Kb, e teclado* 



10 MICRO S1STEMAS 



Novo Mouse no 
mercado 



fcNGEISA 



1 




Visando atender as necessidades merca- 
dologicas do moment© e suprir a demanda 
cada vez maior de equipamentos utilizados 
nos programas graficos, a Servimec S/A co- 
loca a disposigao no mercado o Input Mou- 
se Serial/Bus, fabricado pela Input Digital S/A. 

0 equipamento esta sendo divulgado, ini- 
clalmente, atraves da promogao Input- 
Servimec, que consiste em um kit onde o 
Mouse vem acompanhado de um Mouse 
Pad, um livro didatico e um PFS First Publis- 
her; alem de curso de introdugao ao Desktop 
Publishing, ministrado pela propria Servimec. 
Vem acompanhado pelo Works, que contem 
banco de dados, planilha eletronica e proces- 
s ado res de texta 

0 Input Mouse trabalha acoplado ao com- 
putador e permite local izar e selecionar as 
opgoes com maior rapidez, alem de dese- 
nhar e editar Sua malor utilizagao vem sen- 
do junto a o Desktop Publishing, Processa do- 
res de Textos r Programas Integrados e Pro- 
gramas de CAD/CAM. 

Compostos por uma esfera de 200 dpi de 
resolugao, o novo modelo tem maior preci- 
sao e e 100% compatlvel com o Microsoft 
Mouse. 



MANUAL DIDATICO ANGEiSA 

Drive personalizado 

Com o intuito de personalizar o uso de dri- 
ves em com pjftad ores da linha MSX, a An- 
geisa Eletronica Ltd a langa este periferico 
com um manual didatico e pratico confeccio- 



nado em impressora a laser para que o usua- 
rio explore o Sistema Operacional assim co- 
mo o Basic em disco, atraves de uma i nter- 
face oompativel com os acionadores de dis- 
cos de tamanhos 3 1/2” e 5 1/4” A Angeisa 
garante o produto durante seis meses. 



Pasta para arquivo 
de for mu lari os 
continuos 

A Ruf S/A, fabricante de pastas para arqut- 
vamento, esta langando no mercado uma no- 
va linha de pastas proprias para arquivar for- 
mularies continuos. Em quatro dimensoes 
diferentes, os novos mo del os se adaptam a 
todos os tipos de arquivo disponivets no mer- 
cado e aceitam todos os padroes de formu- 
larios continues utilizados no Pais, As pastas 
sao confeccionadas em papel carfao mar- 
morizado amarelo e apresentam ferragem 
metalica e ponteiras terminals em plastico 
reforgado. 



Novos produtos da 
Estrategia S.C 

A Estrategia SC , esta ampliando a sua Li- 
nha Timbrada de produtos com o langamen- 
to da Chance la Timbrada e do Fax Timbra- 
do. Esse conjunto de programas para micro- 
computadores da linha IBM-PC caracteriza- 
se pela impressao da iogomarea da empre- 
sa em diferentes situagoes, 

0 Papel Timbrado imprime a logomarca 
da empresa e, logo a seguir, os relatorios e 
textos produzidos por editor, planilha, ban- 
co de dados, Basic, Pascal Cobol E pratico 
e muito mais economico do que papel 
pre-irripresso. 

A Etiqueta Timbrada e um complemento 
natural do Papel Timbrado. Personaliza eti- 
quetas para disquetes, pastas e envelopes 



ajuaanao na identificagao e organ izagao dos 
mesmos A logomarca e impressa em etique- 
tas, sendo produzido, de cada vez, apenas o 
numero necessario destas, 

A Chancela Timbrada e um elemento de 
seguranga nos cheques impresses pelo mi- 
crocomputador. Logo aposa impressao dos 
dados do cheque e impressa a Chancela 
Timbrada, composta de um elemento grafi- 
co e do valor do cheque. Tambem pode ser 
utilizada em outros documentos impressos 
pelo computador, onde a segurang^ seja 
importante. 

0 Fax Timbrado personaliza as mensa- 
gens enviadas por FAX (quando o fax e aco- 
plado ao micrccomputador) atraves da trans- 
missao da logomarca da empresa. Assim o 
fax, na outra ponta, recede numa mesma fo- 
Iha a logomarca da empresa e o texto que foi 
transmit! do. 



INFORMATICA 

• lmplanta$ao e desenvolvimento 
de sistemas 

•Servigos por computador 

toii’UXM 
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jogos, apiicat ivos e utilitarios 
msx 1 e 2. ibm pc-xt/at 
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TODO 0 BRASIL 
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SOLICITE 
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EM SAO PAUUQ 

(Oil) 260-5624 







0 EASYNET no Brasil 

Conhega a maior biblioteca eletroniea do mundo 



EasyNet 

Que assuntos estao cobertos em Suas bases de dados. 



Adminislr agao de Empresas- 


Fundos d$ Ffiveslimenlo 


Agricultural e Wulfi<;Ao 


Geoibgsa 
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Uma novidade movimenta a comu- 
nidade t£cnico-cientifica brasileira. Os 
usuanos de bancos de dados computa- 
donzados tern, a partir do mes de julho, 
acesso ao Sistema EasyNet, considerado 
a mais importante porta de entrada para 
as principals bases de dados internacio- 
nais. 

Com sede na Filadelfia, EUA, onde 
estcio interligados 300 computadores, o 
EasyNet tem 13 sistemas de infor- 
macoes, com 900 bases de dados, tota- 
lizando um acervo de400 milhoes de re- 
gist ros, dispomveis ja para mais de 
850.000 usuarios. E a maior biblioteca 
eletroniea do mundo, 90% do conheci- 
mento cientffico e tecnoldgico da hu- 
manidade, ao alcance de apenas um mi- 
crocomputador e um modem. 

Enfim, o Brasil d^ um passo decisive 
para o avanco da pesquisa, driblando sua 
defasagem de paises como o Japao e 
EUA. 

As informacQs oferecidas peio Easy- 
Net interessam a os mais diversos cam- 
posde pesquisa, desde arte, mtisica, fi- 
fosofia, a temas especificos como 
impostos ou at§ informagoes do governo 
americano. Dais' componentes so- 
brepoem os bancos de dados computa- 
dorizados cis informapoes obtidas peias 
vias convencionais: rapidez e atu alidade. 
Gnaqas ao acervo disponivel no EasyNet, 
que inclui artigos publicados em milha- 
res de livros e revistas internacionais, 
anais de eventos, teses, relatdrios tec- 
nicos, pesquisas de mercado ou paten- 
tee, etc, o pesquisador obtem a infor- 
mapao que ievaria, no minimo, semanas 
ou meses de pesquisa e um trabalho in- 
finitamente maior, em apenas dez minu- 
tos de consults . 

De posse dos requisitos minimos, 
como um micro, um modem e uma se- 
nha, o pesquisador faz uma ligacao para 
a Embnatei que, via saf6lite, transfer© sua 
mensagem a sede que por sua vez ana- 
lisa, distribui entre as bases e d& retorno 
da informagao solicitada. 



As 900 bases do sistema sao dtstri- 
buidas em 76 assuntos que direcionam 
a estrategia de pesqutsa. Em compu- 
tacSo e informatics, por exemplo, o in- 
teressado dispoe de 56 bases de dados 
das qua is a NASA Software Directory, 
a CAD/CAM Update, a PC Magazine, a 
CD Computing News, a Data Commu- 
nications, entre muitas outras. 

A pesquisa em bancos de dados tem 
favorecido prindpalmente a &ma medica, 
habituada a so tomar conhecimento de 
novas descobertas atraves da literatura 
especializada que, por vezes, leva meses 
para chegar ao Brasil. Com o EasyNet, 
a comunidade medica tem acesso ul- 
timas pesquisas atraves do ABDS Data- 



base, Medline, NCI Cancer Weekly, e 
mais 39 outras bases. 

A rep resen tacao do EasyNet no pais 
pertence 3 PTI, Publi- 
cacoes Tecnicas Interna- 
cionais, que atraves da di- 
vtsao Optionline, dispoe 
tambem do sistema Dia- 
log, com 400 bases de da- 
dos e mais de 175 milhoes 
de registros, que somado 
ao EasyNet, oferece 1G00 
bases de dados {das 900 
bases do EasyNet, 300 sao 
comuns aos dois bancos) . 

O acesso ao sistema 
pode sen ON LINE, con- 
sultas avulsas ou pelo ser- 
vico SDI, de dtsseminacao 
de informaqao personali- 
zado, que seleciona infor- 
maqoes de interesse espe- 
cifico atraves de uma 
estrategia de busca e re- 
mete -via correio, fax ou 
num disquete acompa- 
nhado do software 
'Offline', que permite criar 
uma base de dados pes- 
soal em seu micro -uma re- 
vista personalizada. Uma 
monitoria internacional da 
informaq^o na sua area de 
interesse, 

0 custo medio fica em 
torno de 200 dolares oficiais mais 20 d6- 
lares por mes, a 16m da conta telefonica 
e despesas de acesso para a pesquisa 
ON LINE; aproximadamente 15 mil cru- 
zeiros por 10 minutos de consulta avulsa 
e, em media, 85 mi] cruzeiros por uma 
assinatura anual para revistas mensais de 
25 registros, o que 250 a 300 cruzei- 
ros por registro. 

O, Brasil tem agora mais um instru- 
ment para diminuir a distune ia existente 
entre os nossos pesquisadores e os cien- 
tistas do resto do mundo. 

Controiando o acesso £ inform a qao 
necesstaria, fica maisfacil superar os tan- 
tos outras obstaculos ao nosso desen- 
volvimento t6cnico~ cientffico. B 
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Ososiado 
microcomputador 
mais notavel dos EUA 
voce encontra na 
Place Tech pelo menor 
preco do Brasil. 




CAR ACT E R! STI CAS: 

• microprocessador com dock de 10 MHZ. 

• memoria Ram de 640 Kbytes totalmente gerenciada pelo 
sistema operational. 

• 8 slots, dos quals 6 dtsponiVeis para expansoes. 

• placa controladora de video (Color-graphics) e placa Multi 
I/O com controladora de ate 4 unidades de discos flexfveis. 

• relogio de tempo real. 

• portas paralela e serial e “game port’’. 

• sistema operacional compativel com MS-DOS. 

• teclado com tecnologia capacitiva, baixo perfil e ajuste 
de altura. 

• monitor de 12”, cinescopio em fosforo verde e alta re- 
solu^ao, possibilitando perfeita defini?ao grafiea. 



PLACE TECH COMPOTADORES LTDA. 




Rua Domingos de Morais, 1786 - conj. 4 
(ao lado do Metro V. Mariana) 

CEP 04010 - SSo Paulo-SP 
Tel.: (011)575-3087 



DESPACHAMOS PARA TODO O BRASIL 





Gerencie o seu winchester 

Uma solugao faciJ para proteger o seu disco rfgido 



Andn6 Luiz Lopes Santana 



Todo usuArio de microcomputado- 
res estci sujeito a surpresas desagra- 
daveis, vez por outra. Uma das si- 
tuacoes mais incSmodas e quando 
um iniciante em microinform^tica ou 
algum usuetrio menos habilidoso 
inadvertidamente apaga ou formata 
o conteudo do Winchester. 



No entanto, existe uma maneira 
prdtica e segura para proteger o pre- 
cioso conteudo dos discos ngidos: a 
criacao de um Sistema de Controle 
(SC). Isto pode ser conseguido de 
duas maneiras: com o uso de um pro- 
grama especffico numa linguagem de 
programapao ou simplesmente 



valendo-nos do sistema operaGional. 
A sua escolha deve ser proporcional 
ao conhecimento da neferida lingua - 
gem, com suas caracteristicas e li- 
mitacSes proprias. Por questoes de 
praticidade, varnos nos ater aqui a so- 
lugao com o sistema operacional. 

Recomendo, para quern tem co- 
nhecimento do sistema operacional, 
a utiiizacao de um SC com arquivos 
tipo BAT. Para isso, o primeiro passo 



• Listagem 1 



C : \B AT>T YP E TELA7.BAT 

(?ECHD OFF 

CIS 

REM Esta e s Tela Principal do nosso enbiiipId. 



ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

ECHO 

PROMPT £p$9 
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I 1C -> DBASE IV 

i 

i ID -► SIDEKICK 

1 

I IE -> WORDPERFECT 



Is: 






A » FATURAMENTO 
B » CONT AB ILIDADE 
C » UTILITARIOS 
D » 

E » ESTOOUE 
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• Listagem Z 



C:\BATMYPE -C.BAT 

@ ECHO OFF 

CLS 

REM Este e o arquivo de lote que vai executar a opcao C. 
TELA2 



6 criar a tela principal, mais conhe- 
cida como menu. Na listagem 1 e 
mostrado o desenho da tela a partir 
da criaqio do arquivo TELA1.BAT. 

A listagem 2 mostra como criar os 
arquivos BAT relacionados a cada 



uma da oppoes do seu menu princi- 
pal, relacionando cada arquivo com 
a opcao encontrada no mesmo. No 
exemplo, voce tem o arquivo de lote 
que vai executar a opcao C. 

Os nfveis inferiores do menu prin- 



cipal, os sub-menus, s§o definidos na 
listagem 3, pelo arquivo TELA2. BAT. 
Nesta figura voc§ encontra todos os 
utilitcirios que podem ser executados 
a partir dos comandos do DOS (voce 
os seleciona medlante a escolha de 
uma opc3o). 

Para terminar, na listagem 4, sao 
criados os arquivos BAT relacionados 
aos itens do sub-menu . Neste arquivo 
de lote 6 encontrada a 'saida' para a 
opqao dos utilitSrios do DOS. 

A utilizap§o dos arquivos tipo BAT 
acarreta apenas um inconveniente: a 
gerapao de slack (espapos perdidos 
dentro de um cluster) no Winchester. 




Para solucionar este problems, sugiro 
que voce controle o uso de arquivos 
de lote no disco rigido por interm6- 
dio do FS do Norton Utilities. ■ 



ANDRE LUIZ LOPES SANT ANA 6 tec 
n6logo em process© mento d© dados. Tra 
balha com© analista d© sistemas na EBID 
- Pfigmas Amarelas © programs em As- 
sembler, Pascal © dBase. 
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Imagens coloridas no PC 

Como co/orir as imagens geradas pelo seu micro PC a um custo 
reiativamente baixo e o que os especialistas pensam acerca do uso 
da televisao como monitor de video 




Sylvio Messras Moraes 



Os micros da I BM estao passando 
por um grande processo de popula- 
rizacao. Usuarios onundos das ma- 
quinas de 8 bits estao trocando seus 
equipamentos por maquinas mais 
modernas. Dentro das opcoes apre- 
sentadas: PC, Amiga e Macintosh, o 
PC 6 o de utiiizacao mais pratica e 
imediata, em funcao da sua disponi- 
bilidade no mercado brasileiro. 

Mesmo assim, e frustrante saber 
que o PC "vem de fabrica" com uma 
placa de video que permite manipu- 
lar imagens coloridas e no entanto um 
monitor colorido custa em media 120 
mi! cruzeiros. Um preco muito alto 
para a maioria dos usuarios pessoais 
ou domesticos. E ai, o que fazer ? 

A resposta imediata a esta questao 
aponta para uma forma de contornar 
o problema: 'tdorir" o PC a um custo 
relativamente baixo. Nesta edicllo de 
MICRO SI STEM AS voce conhecera 
uma alternative pratica para a falta de 
cor do seu micro* 

A PLACA CGA 

A placa Gontroladora de video CGA 
(Color Graphics Adapter), standard na 
maioria dos computadores da linha 
PC, possui dois tipos de saida do si- 
nal de video* Uma delas e conhecida 
como video composto e nela o sinal 
colorido esta "mtsturado" em um 



unico plug do tipo RCA. A outra sa- 
ida e feita por intermedio de um co- 
nector RGB, Red-Green- Blue. Este 
conector possui 9 pinos e nele o si- 
nal de video eseparado, ou seja, para 
cada uma das tres cores primarias ha 
um pino espectfico. 

Porta nto, para utilizar os recursos 
coloridos do PC temos duas opcoes: 
por meio de um monitor RGB ou de 



uma televisao devidamente adaptada. 

Tecnicamente falando nao ha du- 
vidas: o monitor colorido deve ser a 
opcao escolhida quando se deseja um 
resultado de alta qualidade, ou 
quando o usu&rio pretende passar bo- 
ras a flo diante do micro. No entanto, 
em virtu de do seu elevado preco, mui- 
tos usuarios deixam de usufruir das 
caracteristicas do monitor. Neste 
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caso, a opcao da televisao adaptada 
passa a ser um a rdeia atraente. 

A ADAPTACAO DA TV 

A utilizacao da TV coma monitor 
pode ser feita de duas formas, A pri- 
meira e a monitorizacao do aparelho, 
ou seja, a instalacao na televisao de 
uma placa que tem por finalidade o 
tratamento do sinal recebido do mi- 
cro e a sua devida corwersao. 

A segunda, tambem por meio de 
uma placa, utiliza o processo de mo- 
dulacao do sinal de video do PC e o 
seu envio para a televisao por meio 
da antena. Esta solucao e a mesma 
encontrada no hardware de micros 
como o MSX. 

Existem tambem algumas formas 
afternativas para o uso da televisao, 
Alguns aparelhos modernos j a saem 
da fabrica conn uma tomada RCA e 
o circuito proprio para a conex§o com 
com micros, videogames e videocas- 
setes. 

Outra forma alternativa de ligacao 
micro/ TV (e bastante curiosa) e feita 
por meio de um aparelho chamado Vi- 
deo Link ou Video Sprint, ambos en- 
contmdos nas lojas especializadas em 
acessorios para videocassete. Esses 
aparelhos distribuem o sinal originado 
em um videocassete para TVs que es- 
tejam dentro do seu raio de alcance. 

A CONVERSAO DA TELEVISAO 

Com o proposito de esclarecer o 
usuario que optou por monitorizar a 
sua televisao, MICRO SI ST EM AS 
procurou diversas empresas e prof is- 
sionais que atuarn nesta area, Apos 
conversar com engenheiros especia- 
lizados no ass unto, o que ficou evi- 
dent© e que o primeiro passo a ser 
dado pelo usuario e a escolha da te- 
levisao, Desta escolha dependera a 
qualidade da imagem obtida quando 
o processo de monitorizacao for uti- 
lizado. A TV deve ter as seguintes ca- 
racteristicas: tamanho reduzido, pois 
isto se reflate diretamente nas carac- 
teristicas de ptgmentacao da TV; ter 
uma boa definicao de imagem; ter um 
circuito aberto que permita a inter- 
vened o nele. 

Segundo o engenheiro Claudio La- 
cerda de Faria, da Intermak Informa- 
tics e Telecomunicacoes, a monitori- 
zacao de uma televisao e possivel, 
desde que a escolha do aparelho 
atenda as exigences acima citadas. 
Mas o usuario devera ficar prevenido 
para o fato de que o resultado obtido 



ndo serd 100% compativel com o re- 
sultado obtido em um monitor RGB. 

De acordo com Claudio, tanto a TV 
quanto a placa CGA nao fomrn feitos 
para funcionar em con junto, pois a 
descarga luminosa ocasionada pela 
TV e muito superior a do monitor Isso 
acarreta o problems do cansaco vi- 
sual, provocado no usudrio, quando 
exposto a TV por tempo prolongado. 

Uma outra questao esta relacio- 
nada com o tipo de placa utilizada nas 
modernas televisoes. Elas sao base- 
adas em pastilhas de circuito inte- 
grado (CIs) e esta moderntzacao im- 
pede que o tecnico, ao fazer a 
monitorizacao do aparelho, consiga 
atingir uma parte especifica do cir- 
cuito. Com isso, o ponto onde deve 
entnar o sinal gerado pelo micro, pode 
estar dentro do Cl. O idea! e que o 



Da escolha da 
televisao 
dependera 
a qualidade 
da imagem 

modeto da televisao nao seja nem 
muito moderno e nem muito antigo. 

Na opiniao do engenheiro Claudio, 
o usuario deve estar prevenido de que 
se for utilizar o computador em ati- 
vidades graf icas profissionais, ele tera 
problemas com a precisao na deter- 
minacao de um desenho a nivei de pi- 
xel. No entanto, o usuario que deseja 
um resultado profissional, por uma 
exigencia de mereado, nao pode ba- 
sear seu trabalho em uma televisao 
adaptada, mas sim em um equipa- 
mento especifico. 

Para o engenheiro Yano Yukishi- 
gue, tambem da Intermak, a monito- 
rizacao da televisao so pode ser feita 
com a utilizacao de uma placa espe- 
crfica, Ele concorda com as opinioes 
do Claudio e complementa: "acho 
que a adaptacao da TV so sera viavel 
economicamente dependendo do 
custo da placa. Uma televisao nao 
substitui um monitor e quando voce 
chega a necessitar de urn monitor co- 
londo e por que o trabalho assim o 



exige" Yano ainda diz que: "a quali- 
dade tecnica de um trabalho nao 
pode ser prejudicada pela utilizacao 
de hardware inadequado" 

A questao do cansaco visual pro- 
vocado pelo uso prolongado da tele- 
visao pode ser atribuida, segundo o 
engenheiro Yano, & inexistencia de 
uma tela defletora na televisao, o que 
em gera! e encontrado no monitor. 

0 ADAPTADOR PARA 0 MICRO 

0 engenheiro Marcio C. Freire da 
FHESK Tecnologia Eletronica Ltda, e 
o autor de um adaptador de televisao 
para computadores da linha IBM PC 
chamado ATV 0 ATV e uma placa 
que, sem alterar as caracteristicas da 
televisao e do micro, permite utilizar 
a TV como monitor colorido no PC. 

O ATV foi desenvolvido para ope- 
rar com o sinal gerado por uma placa 
CGA. Seu funcionamento e bastante 
simples: o sinal RGB, originado no mi- 
cro, e multiplexado e modulado para 
uma forma de onda de Radio Frequ- 
encia (RF>. Esta onda de RF e sinto- 
nizada para operar pelo canal 3 da te- 
levisao. 

Quanto a qualidade da imagem de 
uma TV utilizada como monitor, o que 
o engenheiro Marcio tem a dizer e o 
seguinte: . se a televisao e um bom 

receptor para o sinal de TV, e!a sera 
um bom receptor para o sinal gerado 
no micro, com o uso da placa ATV". 
Segundo Marcio, a escolha da tele- 
visao deve recair sobre aparelhos mo- 
dernos e com bons recursos de sin- 
tonia, pois isso sera fator 
determinante na qualidade do sinal ne- 
cebido. 

C0NCLUSA0 

Agora que os micros PCs estao in- 
vadindo os lares brasileiros, a questao 
do uso colorido do micro passa a fa- 
zer muito mass sentido. Os equipa- 
mentos especial izad os (os monitores) 
ainda sao perifericos cujos precos ele- 
vados assustam o usuario pessoal 

A alternativa mats racional torna- 
-se portanto o uso da televisao adap- 
tada ou o uso do adaptador ligado di- 
retamente ao micro. Nesta 
reportagem, MICRO SI STEM AS pro- 
curou mostrar como os tecnicos se 
posicionam em reiacao a esse as- 
sunto. 

De qualquer forma, o assunto nao 
se esgota no que foi apresentado e 
abre-se, a parttr do PC pessoal, um 
mercado ainda inexplorado, ■ 
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Assembler no PC: 
os primeiros passos 




Prepare-se para iniciar a Jornada que o colocara em contato di- 
reto com a intimidade de seu micro. Saiba onde seu programa 
devera ser montado e aprenda a dominar as instrugoes mais 
simp/es da programagao do 8086/88 



Ren at o Degi ovani 



Para programar em Assembler no PC sera necessario 
ter um bom montador e um editor de textos dos mais 
simples. Minha sugestao para o montador e o Turbo As- 
sembler, da empresa norte americana Borland Interna- 
tional, por varios bons motivos: e o mais completo, e 
muito bem documenlado e pertence a uma familia de 
programas {os Turbos) cuja integracao e compatibilidade 
entne as diversas linguagens disponlveis e bastante grande. 
Para quern programa em Pascal, C, Basic, etc,, trabalhar 
com os produtos da Borland pode ser uma vantagem a 
mais. 

Quanto ao editor de textos, quanto mais simples ele 
for, melhor sera. 0 DOS possui um programa chamado 
ED LIN, porem ele e tao chato que nem vale a pena ten- 
tar Lisa-fo. Uma boa opcSo e o editor de textos do Si- 
dekick. 

0 que importa mesmo 6 que o editor possa gravar o 
fonte do programa em formato ASCII, para que o mon- 
tador Assembler nao se atrapalhe com os codigos de for- 
matacao de texto usados pelos editores mais sofisticados. 

Outro programa do DOS que pode ser usado § o DE- 
BUG. Ele possui uma funpao para assembler as instrucoes 
digltadas em mnemonicos. Para algumas rotinas simples 
e para programas pequenos ele e bastante eficiente e me- 
rece ser usado. 

Os exemplos e rotinas que serao apresentados nesta 
serie de artigos, daqui para a f rente, obedecerab ao pa- 
drao sintatico do Turbo Assembler. Para facilitar a con- 
versao para outro tipo de montador, acompanhe o exem- 
plo a seguir: 

mov x,bBOOh 
mov ds,ax 
ret 



No Turbo Assembler esta rotina teria que ser escrita, 
no processador de textos, da seguinte forma: 

.MODEL small 
.STACK lOOh 
.CODE 

mov ax,0b800ti 
mov ds,ax 
ret 
END 

A seguir seria gravado um arqurvo ROTINA. ASM e as- 
sembiado como se segue: TASM ROTINA eTLINK RO- 
TINA. Caso nao ocorra nenhum erro durante esse pro- 
cesso, o TA criara no disco um programa chamado 
ROTINA.EXE que podera ser executado diretamente do 
DOS. 

Para o DEBUG, o procedimento seria o seguinte: 

A1DEBUG [ENTER] 

-n rotina.com [ENTER] 

-a [ENTER] 

????:0100 mov ax,b800 [ENTER] 

????:0103 mov ds,ax [ENTER] 

????:0105 ret [ENTER] 

????:01O6 [ENTER] 

-rex [ENTER] 

CXOOOO 
: 6 [ENTER] 
w [ENTER] 

Writing 0006 bytes 
-q [ENTER] 

0 ideal, para se obter bons resultados e poucos abor- 
recimentos, e estudar a fundo a operacao do montador 
escolhido a fim de transpor com facilidade os problemas 
referentes as inform apdes e dados usados pelo programa. 
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Note, no exemplo anterior, como cade programa tra- 
tou o valor B800h. O DEBUG dfspensou o h e o Turbo 
Assembler exigiu um zero antes do B. Esta caracteristica 
do TA decorre do fa to de que um valor iniciado por uma 
letra poda ser conf undido com um label ou rdtulo. isto 
pode ser passive! de crlticas - afinal o ser humano e bas- 
tante criativo para chamar um label de BSOOh, porem o 
software nao possui essa caracteristica intrlnseca, entao 
torna-se de vital impqitancia deixar bem claro quando 
uma referenda se trata de um valor num^rico. 

Outra vantagem de se conhecer bem o montador 6 
que esses programas possuem tantas pseudo-instrucoes 
e tantos par^metros operacionais que, a primeira vista, 
tornam o Assembler do 8G86/88 algo assustador. Volto 
a insistir: para desmistificar o PC sera necessario com- 
preen der muito bem o que e proprio da maquina e o que 
e convenc§o do software. 

MAS AFINAL, ONDE FICARA 0 PROGRAMA 

Na edicao anterior vimos como esta organtzada a me- 
moria do PC, os regjstradores e o modo de enderepa 
mento (segmentq e offset). 

Se voce ja compreendeu 
esses fundamentos pode 
prosseguir a leitura, caso 
contr^rio recomece tudo 
novament^ pois sem essas 
informacdes devidamente 
assembled as pelo cerebro, 
tudo mais parecer& pura 
fantasia. 

Os programas que usa- 
mos no nosso dia-a-dia e 
aqueles que criaremos es- 
tarao em algum lugar da 
area disponlvel para o usua- 
rio, isto e, entre o endereco 
00500h e 9FFFFh. E difrcil 
precisar exatamente o ini- 
cio desta area, pois ele de- 
pende do tamanho do 
DOS ulilizado. O quadro a 
seguir da uma id&ia apro- 
ximada de quanto eada 
versa o do DOS gasta de 
memoria: 

Versao Memoria usada pelo DOS 

1.1 12.10 kbytes 

2.0 24.00 kbytes 

3.0 36.01 kbytes 

Para que um programa funcione adequadamente os 
registradores de segmento deverao apontar para as sues 
3neas correspondentes, ou seja, o CS {CODE SEGMENT) 
dever£ indicar o fnfcio do segmento onde estao as ins- 
trucoes execut^veis do programa; o DS (DATA SEG- 
MENT) devercl indicar o inlcio da area de dados usada 
pelo programa; e o SS (STACK SEGMENT) devera apon- 
tar para o inlcio do segmento usado como stack da ma- 
quina. 

Se isso ainda nao entrou na sua cabeqa, eonsidere o 
seguinte: sempre que uma instrucao fizer referencia, ou 
apontar para uma outra instrucao (CALLs e JUMPs), o 



endereco desejado ser£ obtido pelo valor do offset con- 
tado & partir do inicio do segmento apontado pelo CS. 
Sempre que uma instrupao fizer referencia a um dado 
(ler/gravar num determinado enderego) o enderego ser£ 
obtido pelo offset contado S partir do inlcio do segmento 
apontado pelo DS. O mesmo vale para as operacoes com 
o stack (PUSHs e POPS}, caso em que o apontador usado 
seici o SS. 

As rotinas de carregamento de programas do Sistema 
Operacional se incumbem de posicionar os registrado- 
res de segmento nos seus devidos lugares, pois esses en- 
derecos dependerao de onde o programa estara sendo 
carregado. Como isso e autom^tico, resta saber onde es- 
tara ou qual ser£ a primeira instrucao executada por um 
programa, para entao iniciarmos a criapao dos nossos. 

Quern ja tern alguma pr^tica em Assembler Z80 
(principatmente em CP/M) encontraici um ambiente muito 
familiar nos programas com extensao .COM. Isto por- 
que esse tipo de programa mantem todos os segmentos 
num mesmo bloco de 64 Kbytes, ou seja, todos eles apon- 
tam para o mesmo endereqo inicial. Nestas circunstancias, 
tudo se passa como se o micro so tivesse 64 Kbytes de 

memoria. 

Quando esta tipo de pro- 
grama e criado, os primei- 
ros 256 bytes sao reserva- 
dos para o prefixo do 
programa e o endereco ini- 
cial de execucao e estabe- 
lecido em 10Qh_ A partir dal 
tudo corre por conta do 
programa do usuario. 

No caso dos programas 
.EXE a estrutura flea um 
pouco d if e rente, porem 
tambem nesse caso e reser- 
vada uma area para o pre- 
fixo do programa. A seguir 
sao definidos os outros seg- 
mentos e o endereco da 
primeira instrucao do pro- 
grama ser& exatamente o 
endereco inicial do seg- 
mento de codigo. 

Na verdade o programs- 
dor nao precisa se preo- 
eupar muito com isso, uma 
vez que esses procedimen- 
tos e codigos sao automaticamente gerados e manipu- 
lados pelo montador durante a criacao do programa, ou 
pelo Sistema Operaciona!, quando o programa e execu- 
tado. 

ESCREVEND0 PROGRAMAS E ROTINAS 

Uma vez compreendido como e e onde ftca um pro- 
grama na memoria e como cada segmento deve ser de- 
fin ido no montador utilizado, o passo seguinte e sair 
criando programas e rotinas. Mas para que tudo funcione 
perfeitamente ser£ necessArio antes tracar alguns ma- 
pas e escrever alguns guias de sobrevivenda. 

Lapis e papel na mao, a primeira providSncia e tradu- 
zir em pa lavras o q ue exatamente se quer criar em lin- 
guagem de maquina. Lembre-se: em Assembler as coi- 
sas nao sao como no Basic, onde para imprimir alguma ► 



Qu ern ja tern 
alguma pratica em 
Assembler Z80 
encontrara um 
ambiente 
muito familiar 
nos programas 
com extensao 
.COM 
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oisa no vfdeo basta fazer um PRINT. Em Assembler, para 
escrever uma mensagem na tela ser£ necessSrio la near 
mao de uma rotina que, vista fora do seu contexto, n§o 
possui nenhum elemento que a caracterize como uma 
rotina de impressao, Por causa disso e que o programa- 
dor Assembler deve ser muito mais meticuloso e racio- 
nal do que os outros programadores - para se salvar na 
selva de instrucoes e mnemonicos de um programs . 

Uma vez definido o tipo de programs a ser criado, 
parte-se para a criagao das rotinas basicas, ou seja, im- 
pressao na tela, acesso ao teclado, gravacSo em disco, 
etc. 

Como primeira providencia, devemos estabelecer a area 
de dados que sera utilizada pelo nosso programs e cui- 
dar para que os segmentos de dados efetivamente apon- 
tem para ela. Assim, para cofocar a letra 'A' piscante na 
primeira posicao da tela, por exemplo, acessando a me- 
moria de video diretamente, devemos proceder da se- 
guinte forma: 

rnov a x , B 8 0 Oh ;Aponta o segmento de dados 
mov ds,ax ;para a £rea de video 

Note que o registrador de segmento de dados IDS} 
nao pode ser manipulado diretamente, Em Assembler 
8086/88 6 rsecessdrio antes carregar o registrador AX com 
o valor que se deseja para inicio do segmento e entao 
transferi-lo para o registrador de segmento desejado. 0 
que nossa rotina fez nada mais 6 do que apontar o seg- 
mento de dados para o inicio da area de video. 

Seguindo com o nosso programa, podemos agora usar 
o registrador BX como um apontador de enderecos. Veja 
como: 

mov b x , 0 ;BX = enderego zero da drea de video 

Para acessarmos entao o endereco zero do segmento 
de dados com a letra 'A' piscante, basta gravar o eddigo 
ASCII da letra nesse endereco e o atributo no endereco 
seguinte: 



mov 


al ,41 h 


;AL = eddigo ASC/i do caracter A 


mov 


[bxLal 


;Coioca o caracter no vfdeo 


i n c 


bx 


;Proxfmo endereco 


mov 


a!,87h 


jCddigo do atributo 


mov 


[bx],al 


/Co/oca os a tributes no video 


ret 




;Retorno ou finai do programa 



Usamos o registrador BX para enderecar a area de vi- 
deo. Na verdade, este trecho do programa poderia ter sido 
escrito da seguinte forma: 

mov BYTE PTR [bx+0],41h 
mov BYTE PTR [bx+1],87h 



ou ainda 

mov WORD PTR [bxL8741h 

Nestes dois exemplos alternatives o registrador BX con- 
tinua com sua funpao de apontador, porem o conteudo 
dos enderecos e obtido diretamente, sem intermediac§o 
do registrador AL. 

As palavras BYTE PTR e WORD PTR sao necess^rias 
para especificar o tipo de dado que ser3 manipilado pelo 
registrador BX: se um byte ou se dois bytes (WORD). 
Outro ponto a destacar e que os registradores do 8086/88 
aceitam a indexaqao tal qual os registrdores IX e IY do 
Z80. E mais ainda, podem ser usadas outras formas, 
como: 

mov BYTE PTR [bx+di+5],41h 

Outra magica possivel com o 8086/88 e acessar dire- 
tamente um endereco, da seguinte forma: 

mov BYTE PTR (0000 h], 41 h 
mov BYTE PTR [0001 h],87h 

Isto produz o mesmo efeito que os procedimentos an- 
teriores, ou seja, coloca uma letra 'A' piscante no topo 
da tela. 0 enderecamento direto e um recurso muito Util 
para os procedimentos de inicializacao das variaveis de 
um programa. 

O exemplo da letra piscante, em Turbo Assembler, po- 
deria ser completado se segue: 

.MODEL small 
.STACK lOOh 
.CODE 

mov ax,0b800h ; Segmento de dados 

mov ds,ax 

mov b x , 0 ; Endereco zero 

mov BYTE PTR [bx+0141 h ;Coioca a letra A 
mov BYTE PTR [bx+1I,87h / Coloca o atributo 

mov ah,4Ch ;Encerra a opemgao 
i n t 2 1 h ;e retoma ao DOS 

END 

COMPUCANDO AS COISAS 

Devemos admitir que colocar um 'A piscante no vi- 
deo nao represents um esforco sobrenatural de progra- 
macao, mas ja da para sentir o gostinho. Vamos entao, 
seguindo essa mesma linha, criar um programa que torne 
todas as letras 'E' do video piscantes. 

Se voce n3o conhece as caracteristicas do video do 
PC, principalmente a placa CGA, MICRO SISTEMAS pu- 
blicara na proxima edicao uma materia sobre esse assunto. 



PROGRAMAS PROFISSIONAIS 
PARA MSX E PC 



LINHA MSX 

I Contabilidade Profissional Completa em Dbase II Plus ■ 100 BIN s 
Controle de Estoque Profissional em Dbase II Plus ■ 30 BTN's 
Super Conversor de Arquivos - Basic - Dbase * 20 BTN's 
Supershapes 1, 2 e 3: Para Graphos III e Page Maker - 14 BTN's cada 
EVA: Editor de Vinhetas Animadas - 30 BTN's 
L S D,: Letters Special Designer - 20 BTN's 
Mala Direta Plus - 30 BTN r s 



SOLICITE CATALOGO 



LINHA PC 

Agenda Profissional d Mala Direta e Editor de Textos ■ 300 BTN's 

Contabilidade Profissional Completa - 300 BTN's 

Agenda Politics cl Mala Direta e Editor de Textos - 300 BTNs 

Programas de Pommio Publico e Shareware: Solicite Catalogo 
Pedidos atraves de Cheque Nominal ou Vale Postal a: 

NEWDATA INFORMATICA E SISTEMAS LIDA, 

Rua Jose Benfica, 167 - CEP 79001 - Campo Grande-MS 
Caixa Postal 1049 ■ Telefone: (067)761-3425 



Em primelro lugar, devemos considerar que uma tela 
possui dois mil caracteres e dois mil atributos (25 linhas 
por oitenta colunas). O que teremos a fazer e vasculhar 
esses dois mil caracteres £ procura dos codigos hexa- 
decimais 45h (letra E). 

Quando encontrarmos um codigo 45h, o enderego se- 
guinte devera ser configurado para atributo piscante 
(codigo 87h). 0 programs todo em TA poderia ser algo 
como o que se segue: 

.MODEL small 
.STACK IMh 
.CODE 



mov 
mo v 
mov 
TESTE: 
mov 


ax,0b8009i ;Segmento de dados 

ds,ax 

bx,0 : Endereco zero 

a 1 , f b X ] ;Obtem o codigo do caracter 


cm p 


a 1,45 h 


; Verifies se e a letra E 


jnz 


TESTO 


;$a/ta se nao for 


mov 


BYTE PTR [bx+1] f 87h ;Cofoca o atributo piscante 


TESTO: 






add 


bx,2 


; Salta dois enderecos 


emp 


bx,4000 


; Vert flea se ja vascufhou todo o video 


jnz 


TESTE 




mov 


a h ,4C h 


;Encerra a operagao 


i tot 


21 h 


;e retorna ao DOS 


END 







Veja como as comparacoes foram feitas. 0 8086/88 
aceita, para a mesma instrucao (CMP) dois tipos de da- 
dos: bytes e words. Os desvios condicionais (JNZ) estao 
relacionados com o ZERO FLAG, ou seja, o flag que sera 
seta do caso a operacao efetuada resulte em zero. Uma 
comparacao nada mais 6 do que a subtracao dos dois 
valores envolvidos, sem contudo alterar qualquer um de- 
les. Apenas os flags sinalizam o resultado da comparacao. 

Evidentemente existe mais de uma forma de executar 
a mesma tanefa e uma aiternativa mais interessante, sem 
duvida nenhuma, seria aufomatizar o loop de testes. Veja 
como: 

.MODEL small 
.STACK lOOh 
.CODE 



mov 


ax,0b80Qh 


;Segmento de dados 


mov 


ds,ax 




mov 


bx,0 


; Endereco zero 


mov 


o x, 20 0 0 


;Quantidade total de testes 


TESTE: 


cm p 


BYTE PTR [bx],45h ; Verifies se e letra E 


jnz 


TESTO 


; Salta se nao for 


mov 


BYTE PTR [bx+1L87h ;Coloca atributo piscante 


TESTO: 


add 


bx, 2 


; Salta dois enderecos 


loop 


TESTE 




mov 


ah,4Ch 


;Encerra a operacao 


int 


21 h 


;e retorna ao DOS 


END 



Note como o 8086/88 permite ate mesmo uma com- 
paracao entre um valor e um endereco apontado por um 
registrador. A automacao da operacao ficou por conta 
da instrucao loop e do registrador CX, que define 



quantas vezes o loop sera executado. Ao terminar, evi- 
dentemente, CX conterei o valor zero. 

EFEITOS ESPECIAIS 

Uma vez compreendido o que acabamos de executar, 
est£ na hora de experimentar voos mais aitos. Vamos criar 
um programa para apagar o video de uma forma dife- 
rente (certamente voce viu este efeito em micros da 
linha TRS 80). 0 objetivo seiei decrementar cada carac- 
ter ate que seu codigo seja igual a 20h, ou seja, o c6digo 
de espapo. 

O loop de testes so terminara quando todos os carac- 
teres do video forem iguais ao espaco. 

.MODEL small 
.STACK lOOh 
.CODE 



mov 


ax.ObSOOh 


;Segmento de dados 


mov 


ds,ax 




TESTE: 


mov 


al.O 


;Flag sinalizador 


mov 


bx,0 


;Endereco zero 


mov 


cx,2000 


;Quantidade total de testes 


TESTO: 


cm p 


BYTE PTR Ebxj,20h ;Verifica se 6 espaco 


jz 


TEST1 


; Salta se for 


dec 


BYTE PTR [bx] ; Decrements carscter 


mov 


al,1 


;Sinaliza o flag 


TEST1: 


add 


bx,2 


; Salta dors enderecos 


loo p 


TESTO 




emp 


al.O 


; Checa se houve aJgum caracter 


jnz 


TESTE 


;alterado 


mov 


ah,4Ch 


;Encena a operacao 


int 


21 h 


;e retorna ao DOS 


END 



Nao ha nada excepcional com este programa, a nao 
ser o fato de se usar um registrador (AL) como sinali- 
zador - ou seja, sempre que houver a decrementacao de 
uma letra, esse registrador assumira o valor 1. No mo- 
mento em que AL, ap6s uma varredura completa do vi- 
deo, nao acusar nenhum decremento, entao a operacSo 
chegou ao seu final. 

DE AGORA EM DIANTE 

Se voce 'pescou' bem o que foi exposto neste artigo, 
ja deve ter concluido que basta saber o que cada instrugao 
do 8086/88 faz para poder criar programas cada vez mais 
complexos. E isso mesmo - e o passo seguinte e encorv 
trar um bom manual do processador da INTEL (qualquer 
livro sobre Assembler publics uma fabela completa das 
instrucoes). 

Porem, se todos os seus recursos para investir em co- 
nhecimentos tecnicos ficaram bloqueados no over, pu- 
blicaremos a partir da proxima edicao uma microficha con- 
tendo as instrugoes do 8086/88. Outra novidade, para 
complementer a serie de artigos sobre Assembler no PC, 
sera a coiuna ROTINAS EM ASSEMBLER. Nela voceterS 
todo mes uma rotina comentada passo a passo. 

Com tudo isso, voce nao precisarS mais 'temer' o seu 
micro. Ate let, entao. ■ 
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CLBC 2.0 

Softcad 
IBM PC 

Mais do que um simples compila- 
dor para dBase III, o Clipper tornou- 
-se conhecido como uma vers£til fer- 
ramenta de programac^o para as mais 
diferentes f inalidades. Imagine ape- 
nas uma apPicacao que nao possa ser 
desenvolvida com o auxilio desta lin- 
guagem: se voc& pensou em progra- 
mas que utilizam graficos sofisticados, 
como os da area de CAD/CAM, er- 
rou. Pelo menos no que depender da 
Softcad, uma empresa formada por 
engenheiros e profess ores da Escola 



Politecnica da USP, especializada em 
CAD/CAM e computacao grafica. A 
Softcad comercializa duas bibliotecas 
compugraficas, o BC e o CLBC, que 
perm item ao programador incorpora r 
recursos graficos avancados em suas 
aplicacaoes desenvolvidas nas lingu- 
agens C e Clipper, respectivamente. 

A Softcad esta anunciando agora 
o lancamento da versao 2.0 do CLBC, 
a qua! permits o desenvolvimento de 
aplieativos de CAD sob medida, que 
geram e interpretam diretamente ar- 
quivos de dados padrao dBase. A 
nova versao, alem disso, traz varios re- 
cursos extras e algumas inovacoes ate 



RECURSOS DO CLBC 2,0 

- Manipufacao de janelas 

- Geracao automptica de graficos 
comerciais (barm, torta & crono- 
gratma } 

- Geracao de graficos primitives 
(finha, marca e circunferenc/a) 

- Mapeamento de coordenadas 

- ZOOM IN/ZOOM OUT 

- Saida para plotter e impressora 

- Con troladores para placas gr£~ 
fleas CGA r EGA e Hercules 

- Controladones para d/spositivos 
graficos especiars sob enco- 
re enda 



mesmo em relacao aos similares es- 
trangeiros <veja o box). 

0 CLBC 2.0 e complementado 
ainda por um modulo para captura de 
imagens deoutros programas grafi- 
cos e por um modulo explicative que 
ensina ao usuario como utilizar o pro- 
grama. 



MAXXIFORMA 

Maxxirede Informatics 
IBM PC 

0 preenchimento de papeis como 
cheques, faturas e contratos faz parte 
da rotina diaria de qualquer empresa. 
Com a crescente informatizaqao dos 
escritdrios, nada mais natural que 
buscar automalizar esse processo. O 
principal problema que costuma se 
verificar nesse momento e a grande 
diversidade de tamanhos e formatos 
dos formularies pre-impress os, que a 
primeira vista exigem a criacSo de um 
programa espedfico para o preenchi- 
mento correto de cada formulario 
existente. 

Pensando nisso a Maxxirede criou 
o Maxxiforma, um utilitario que pos- 
sibilita o preenchimento dos campos 
em branco de qualquer tipo de for- 
mulario, em folhas soltas ou contl- 




Atributos de 
impress&o 



nuas, Tudo o que o usuario precisa 
fazer e solicitar a impressao de uma 
matriz com llnhas e colunas sobre o 
documento especificado, as quais ser- 
virao como referenda para indicar as 
posicoes dos campos corresponden- 
tes. 0 programa cria entao uma pla- 
nilha na tela, apresentando os cam- 
pos para serem preenchidos e 
sincronizando a salda do video com 
a impressora. 

O software pode funcionar tam- 
bem como um sistema de entrada de 
dados, a rquivando informapoes para 
posterior processamento e impress&o 
pelo proprio Maxxiforma ou entao 



por outros programas como planilhas 
e gerenciadorss de bancos de dados. 
O Maxxiforma aceita a importa^ao de 
arquivos gerados por diversos aplica- 
tivos como o dBase HI, imprimindo 
seus dados (como uma etiqueta, por 
exemplo) nas posiqoes corretas e com 
os recursos disponiveis na impresses 
em uso. 

Isto assegura nao apenas o apro- 
veitamento dos formularios anterio- 
res a automatizacHo da empresa 
como tambem, nos escritdrios \k in- 
format izad os, a manutencao de pro- 
cedimentos de programacao anterio- 
res a introducao do Maxxiforma. 
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INSTRUpOES QUE O MOZART 
NAO COM PI LA 



MOZART 1.0 

Cibertron Software 

MSX 

Que tal escrever seus programas 
em Basic MSX e executa-los numa 
velocidade que chega, em alguns ca- 
sos, a ser 60 vezes maior do que o 
normal? E se, de quebra, os fontes 
desses mesmos programas ainda se 
tornassem indecifr£veis? Pois e exa- 
tamente a isto que se propoe o com- 
pilador Mozart., da Cibertron. 

Por tras do nome de genio est£ um 
compiiador bastante completo: pou- 
cas instrucoes do vasto repertorio do 
Basic MSX nao foram implements - 
das nesta versao (veja o quadro). Se- 
gundo o manual do programs, tam- 
bem ha poucas restricoes quanto a 
sintaxe dos comandos. Apenas 
CALL, CIRCLE, COLOR, DRAW, 
LINE, LOCATE, PAINT, PLAY, PUT 
SPRITE e SCREEN devem ter sua 
gratia observada ou escritos com pe- 
quenas modificacoes. As instrupoes 



DEFUSReUSR, por sua vez, devem 
ser substituidas por CALL. 

Com excecao dos comandos es- 
pecificos para edicao de programas 
em Basic (LIST, DELETE, etc.) e 
aqueles relacionados coim o armaze- 
namento de programas em fita cas- 
sete (CSAVE, CLDAD...), todos osde- 
mais comandos do interpretador sao 
aceitos, inclusive as instrup5es para 
acesso ao disco. O Mozart opera com 
variaveis intelras, de simples e de du- 
pla precisao, e ad mite o uso de todas 
as notacoes numericas do Basic, bem 
como seus opera dores logicos e arit- 
m^ticos. Operapoes entre strings e 
com numeros randomicos tambem 
sao permitidas. 

Para que um programs possa ser 
compilado pelo Mozart, ete deve es- 
tar gravado em formato ASCII. O 
compiiador gera inicialmente um ar- 
quivo .REL nao-execut3ve), que de- 
vera ser submetido a um processo de 
link-edicao. Apos isso sera gerado um 



ON INTERVAL ... GOSUB 
ON SPRITE ... GOSUB 
ON STRIG ... GOSUB 
ON STOP ... GOSUB 
ON KEY ... GOSUB 
INTERVAL ... ON /OFF 
SPRITE ... ON/OFF 
STRIG ... ON/OFF/STOP 
STOP ... ON/OFF 
KEY (X) ... ON/OFF 



programa .COM, que pode ser exe- 
cutado dinetamente e encadeado com 
outros programas compilados, 

Durante a etapa de compilagao o 
usuSrio pode determiner a saida do 
programa na tela ou na impressora, 
e no formato Basic ou mnemonicos 
do Assembler Z80. Qualquer situacao 
de erro no programa fonte durante a 
compilacao e reportada atraves de 
mensagens abreviadas. 

0 Mozart vem acompanhado de 
uma chave de protepao que dever3 
ser conectada na entrada do joystick 
do micro. Trata-se de um dispositive 
que visa inibir as copias ilegais e cujo 
uso, segundo o fabricante, e limitado 
ao compiiador. Nao 6 preciso usar a 
chave com os programas compilados. 



TOPVIEW 

PRO KIT Informatica 

MSX 

Crie voc§ mesmo ilustracoes para 
palest ras e seminaries, demonstrate 
vos de produtos e verdadeiros dese- 
nhos animados, Nem precisa ser ar- 
tista: basta contar com o neconhecido 
talento do GR APHOS, o mais conhe- 
cido editor grafico para a linha MSX, 
e com os recursos do PRO KIT Top- 
view, o mais recente lancamento da 
PRO KIT Informatica. 

O Topview § um sistema de ani- 
macSo gr^fica projetado para o usuci- 
rio dos programas da serie GR APHOS 
dar movimento telas, shapes e de- 
mais desenhos elaborados com o 
GRAPHOS 111 e PRO. O primeiro 




passo para a criacao deste sistema foi 
a concepcao de uma linguagem es- 
pecial de programacao grefica, que fa- 
cilita a adocao das diferentes tecni- 
cas de animacao no computador e 
possibilita o plena acesso aos recur- 
sos graficos do hardware do MSX. 
Esta linguagem, de facil aprendiza- 
gem, apresenta um importante dife- 
rencial para a apiicapSo a que se des- 



tine: seus comandos permitem a exe- 
cuc§o imediata, em tempo real, da re- 
tina de animagao recem-criada pelo 
usu^rio. Isto agiliza a edigao dos bio- 
cos que ir^o definir as trilhas de ani- 
macao, eliminando a lentidao dos pro- 
cessos de compilacao e link-edigao 
usual men te empregados em progra- 
mas deste tipo. 

0 menu de apresentagao do Top- 
view 6 semeihante ao dos demais mo- 
dulos PRO KIT, visando proporcionar 
maior seguranqa na sua operacao aos 
usuarios ja familiarizados com os ou- 
tros programas desta serie. AI6m 
disso, a instalapao do novo modulo 
no disco Master contribui, segundo 
o fabricante, para uma utiiizagao mais 
otimizada de todo o sistema. 
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PROG RAM A 

De um toque todo especial em seus programas 



Telas incrementadas 
em dBase III 




Micro: PC XT 
Mem6ria: 512 Kbytes 
Video: CGA 
Linguagem: BASICA 
Requisitos: Nenhum 



□ Julian o Junqueira Assuncao 



Quern ainda nao perdeu horas na 
f rente de um micro organizando um 
menu ou uma tela quaiquer em 
dBASE III? E quern nao gosta de dar 
um toque todo especial em seus pro- 
gramas? Pois bem, o utilitSrio a se- 
guir ira facrlitar muito a sua vida. Com 
ele voc§ fara suas telas com mais efi- 
ciencia e rapidez. 

O dBASE TELAS foi escrito em 
BASIC, sendo utilizado o COMPAQ 
BASIC, o BASICA como 6 mais co- 
nhecido. Apos digitar o programa e 
teclar RUN, ir3 aparecer em seu vi- 
deo um menu com cinco opcoes. 

A opqao 1 § referente a ediqao e 
criacao de telas. Ainda dentro desta 
opcao temos alguns comandos de 
manipulapao: 

Modo texto: 

[setas] - movem o cursor 

[Ctrl] + [LJ - limpa tela 

[ESC] - volta ao menu principal 

[ENTER] - avanga uma iinha 

[TAB] - avampa cursor cinco posicoes 
3 frente 

[Ctrl] + [Y] - apaga a Iinha do cursor 

[Ctrl] + [D] - muda para o modulo de 
desen ho 

[Ins] + [tecla] - insere um caracter 

[Del] - delete o caracter onde est£ o 
cursor 

[Back Space] - apaga o caracter an- 



• Programa: dBase TELAS 



*0 ' 

30 (LBA3E TELAS ** ' 

AO 

SO ** JwllihO Junqueira As=yncao **' 

AO itfrHiitftdifttt tttittfMitMtiitf 

70 ' 

SO CLEAR 10-000 

90 KEY OFF sDlIt CLI7.I 11 

100 CLS:G0S:yB UOO 

110 COLOR 7 f 2: LOCATE 2 ,30: PRINT d Et 0 S E IE L A S — -j 
120 LOCATE 3 , 30: PRINT "flenu Principal^ 

130 LOCATE 6,3():PRINT “ "j 

HO LOCATE lOjIStARlNT 1 !, Cria *>uu idit* tela e* node texto'; 

ISO LOCATE 13, 25‘ PR] MT "2, G fJvj tela e* dssco'j 
140 LOCATE 14 , 23: Pfi I MT "3. Carrera tela do ditto'; 

170 LOCATE 19, 25t PRINT *3. Gera jircgra^a ea dOASE 111“] 

130 LOCATE 22 T 23 s PR I MT *5, Finalii*-; 

190 Yt=INKEYt:IF Yt«““ THEN 190 ELSE OH VALiYtl SOTO 21 0 ( 1 000 , 1190 ( 1 300 , 1 540:0010 1 90 
*00 ■ J- CRIfi E70LI £01 Tft TELA Eft flODO TEXTQ 

210 COLOR 7 , 0 i CL 5; ON ERROR GOTO 220: DEF BEG = 4H&300 : BLGAD "TELAUt** T 0 
220 CURS0RX = L :CURSQRYa t tESTILO- 1 

230 PE- < (BO* I CURSORY- 11 i + i CURSOR* - 1 U *2; PP-PEEKtPEl 

240 Yt=lNKEYi:IF Yt*" THEN POKE F€, Si POKE PE + ljSiGOTO 240 ELSE POKE P£,PP:P0KE PE+1,7 
250 If LEFT * I Yt , I ) *CHRt (01 THEN Yl f=R IGHT* ( Yt f it ELSE YU-*" 

240 IF Y4-CH*U12) THEN CL0 ! CURSOR X= 1 : CURSORY = 1 

270 IF V 1 * - CM 4 7 S I AMD CURSOR X > 1 THEN CURS0 RX * CURS UR £ J 1 i 0 0TG 230 

200 IF Y U ■ CH R t < 7 7 1 AND CUR £0R X < SO THEN CURSOR* ^CURSOR I* 1 i GOTO 230 

290 IF Yt t = CHRt £ 721 AND CURSORY >1 THEN CURSOR Y*CURSBRY- 1 : GOTO 230 

300 IF YL*- CHRt (00) AMD CURSORYK 24 THEN CURSCRY-CUR5QRY+1 i E0T0 230 

310 IF YLt=CRRt(721 AND CURSORS THEN CURS0RY=24 

320 IF YU-CUftfieOS AMD CUR50RY=>2* them CURSORY* I 

330 IF YU=CHRt<75) AMD CUR£0R!“1 AMD CURSORY >1 THEM CURS0RY*C U-RSDRY- i s C4JRS0R X*S0 
340 IF YU- CHRt <771 AND CURSOR I -B0 AND CURSOR Y< 24 THEM CURSORY =CURSQRY+1 i CUR&URU 1 
350 IF Y4> - THEN GDSUB 490 

340 IF Y4^C:HRt[27) THEN 0EF SEG = iH 0 SO 0 1 BS AYE "TELA, *tt* *0 .NHlOOOl GOTO 10O 
370 IF Y*-CHWy 1 3 1 AMD C LEftS OftY < THEN CUftSfiftX=I jEUft£0ftY-CUBEOftY*| iSOTO 230 
300 IF Yt fc CHRt 113) AND CURSORY- >24 THEM CURSOR K* I s CURSORY*! 

390 IF Yt*C"Hfit <91 AND CURSOR* <7* TREN CURSOR X=CURGGftX 4-5 

400 If Yf=CHfit [91 AND CUFrSORX->74 THEN CUASORX-BO 

410 IF Y*-CHRt(25l THEN LOCATE CURSORY , 1 : PRINT STRIHGt < 00 , * p 1 1 

420 IF Yt=CHfifUJ THEM GDSUB 540 

430 IF YU- CHRt <031 THEN FOR 1 = 0 TO ( B0-CURS0R * 1 *2 STEP 2lP0fc£ t £00# < CURSORY- L3 *21*1 -2* I CURSOR*# 

21 1 , PEEK < < I 30MCURS0R Y -1 1*21+1+ (CURSOR 1*21- 1 ! i NEXT; POKE 1 0:0* (CURSORY - 1 1 *21*130,32 

4 40 IF YU- CHRt (SI) THEN FOR I* COG-CURSORS! «2 TO 0 STEP -2tPGK£ < < GO* < CUKGBRY- 1 } *21 * 1 M CURSDHX*2 
> 1 , PEEK i ( £0.0* < CURSORY —13 #21 ■*! f <CURS0Rl*2] -2) ] : NETT 

450 ]F Yf-CMR118> AND DlfiSORDJ THEM LOCAIE CURSORY , CURBOftlt PR 1 NT ' " j t CTJ RSOfi X =t IIRS0 R I - 1 
440 IF YF-CHR4T0J AND CURSOfiXt=t THEN LOCATE CURSORY , CUR50RX ! Pftl NT ■ 

470 IF Yf=>' * AND AND Vl<iCHR*t34) THEN LOCATE CURSORY ,CORS0RX l PR INT Y*[!lF CURSORX=>SO 

AND CURSOR Y< 24 THEN CURSBRI^ 1 j CURS DRY -CUR SCRY u ELSE If CURS0RX=>OO AND CURS0RY=>24 THEN CURSOR 
K » X t CURSORY = 1 ELSE CU RS0RX -CURSOR* ♦ I 
4 SO SOTO 25.0 

490 FOR UC-UftSORK TO 00: LOCATE CURSORY , t ! EL-PEEK < (SO* tCURSORY™ 11 + < T-l H #2> 

S0O IF EL-32 OR EU124 THEN PRIWT Yi; 

510 NEST 

520 IF CURSORY': 24 THEN CURSORY-CURSORY* I 
530 RETURN 

540 IF REGI STflti = 0 THEN SOSU0 940 
550 

540 PE- < iS0*f CURSOR Y- 1 }) + LCURSBBE- 1 1 M2t PP-PEEK (PE) 

570 Y(=IWKEYtjIF YS-"“ THEN POKE fE , IO:POKE PE* t , 15 1 GOTO 570 ELSE POKE P£ f PP:P0KE PEH,7 
5S0 IF L E F T f I Yt j I ) =C Hfil ( 0 1 TH£N Y | % *R ] GHTR ( Yt ( \ \ ELSE Ylt = ‘“ 

590 IF Y 1 f = CHRt <751 AND CURSOR! >1 THEN CURSOR * =C URS UR * - 1 1 6 0T0 540 
600 IF YSl*CHPt<77] A&ID CURSGfi*<80 THEN CURSOR 1-CURSOft I + I i GOTO 540 
4LO IF YU- CHRt <721 AND CURSORY >1 THEN CURSORY-CURSORY- 1 ] GOTO 560 
bib [F Y E f » CHRt (ROJ AND CURSORYv. 24 THEN C UPS GftY = CURB DRY* 1 : GOTO 540 
430- IF YU- CHRf <721 AMD CURSBRY<2 THEN CURS0PY-24 
4*0 If flf=CHRt<BCU AND CURSORY- >24 THEM CURSORY ^ l 

450 IF YU- CHRt <75! AND CURS0R1=1 AMD CURSORY >1 THEN CURS0RY*ClUftSORY-I i CURSOR I -00 
640 If Ylt= CHRt <771 AffD CURSORH-SO AND EURS0RY<24 THEM C UR5 DRY - CUR S OP Y * 1 : C URS GR * = ! 

670 IF Yf-CHPiU3i AND CURSORY-: 24 Ih£n CUftS0RX= 1 iCUR 5DRY = CURSQE Y M 
600 IF Yf *CHRt ( 13 ( AND OURS DRY- >24 THEN CURSOR!- | i CURSOR Y-l 
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iWO IF AND CU&SCifciOi THEN CURSOR! CURSOR 1 *5 

™0 |F Vt=C.HRt'<9) AND CURSOR t - ; 74 THEN tURSORK = 30 

730 i F Yf-CHM(2SJ EHEN CQCftTE CURSORY, ! :PfllHT STfc [ K&t i So , - -}j 

72G IF Yf"CHRt<0> GK» CUftSfiHUOL THEN LOCATE CUE SOS V , CUE! SON I ; PR 1 NT ■ - 5 . s 

730 !F Y*=rCHftt(fik AND CURSOR* ;=( THEN LG CATE CURSOR Y^SUftSDR^^R I MT ’ 

7^0 EF VfT.CHRt(S7i THEN SOTO 234 

7^0 i F VM"7‘ T hew LOCATE CUftSflSY * CURSOR* : PftIHT CHRMCLfESTlLO.mjiFDR ]«] TO JOOsWEIT 

760 IF Y t = “ 8 ' THEN COCA IE CURSORY ,, CURSOR I : Pfl I [IT CHRi 4CL TEST E LQ , 2 ( ) ; ; E F CURSOR V l THFfl Ojft SQftY = CeJ 

RSORV-1 ELSE IF CUftSDRY<=l IREN CElftSOftY- ] 

770 EF Y*=-9' THEM LOCATE CURSOR Y f CURSOR t j Rft | ff T CHR* *Cl IfiSmO,5U J ! FOR [ = 1 ID 300iN£lT 

7S0 SF Y t*"!' THEM LOCATE CURSORY , CURSOR 3t : PR ! NT CUftf 4 CL ( ESI E LG , 4 ! j 5 3 E F CURSOR t U [ AT4D CURS EJRt ■■ 1 

THEU CUft&BR*^BOjCURSQftY«tUftSORY-t ELSE [f CUftSGft!L=t AND CtfRSORY' = 1 THEN CURSORX = l 1 CURSOR: = 1 ELS 
E CURSOR* "CURSOR*- 1 

770 EF Y*="i- THEN l DCATE CURSOR Y , CURSOR X s RR I MT CKRt it CHEST U. 8 , M > 3 1 [ F CURSORS s-RO AND CURSGft*<2 

4 THEN CURSOR!* U CURSORY* CURSORY* l ELSE EF CURSOR! I *60 AnB CURSOR * >=24 THEN CURSOR Y»80 s CUR SGRY =2 
i ELSE CURSORS CURSOR *H 

300 EF YI="S’ THEN LOCATE CURSORY , CURSOR Ki ffti NT CHRM CLCEST 5 

aiQ TF ¥£=- 1 ' THEN LOCATE CURSORY, CURSORS: PR I NT CHFf I * CL CEST IL0 T 6J I ; : FUFr IM TO 300: NETT 

320 IE Tts'j" THEN LOCATE CURSORY , CURSOR I i PRINT CHRt <CL (EST ILD, 71 t ; : F ON E = ] ID SOOiMEXT 

330 IF Y*=-2- THEN LOCATE CURSORY , CURSOR Ki PRINT CHftt <CUESriLD T 2J I j : IF CUR5GRV424 THEN CUftSDRV*=C 

UR5QRY + 1 ELSE IF CURS0RYW4 THEfJ CURS0RY = 24 

S 40 tf Yt=“r then locate Cursory , cursor t j print out* (Cl jest ii.a,snt 

850 EF Yf=*L“ THEN LOCftTf Q0RfifiEtY , CUF§|ft * j PR I N T CM* (CHEST ILO , 9H \ 

8 iCi IF ¥*•*>■ THEN LOCATE CURSORY , CURSORS 1 PRINT CHRf «CL tEST 110 , | OJl - 

370 IF Yf *’ L " THEN LOCATE CURSORY , CURSOR X : PRINT CHfiltCL LEST 3 LO , 31 ]> f 
S80 IF Y*«CK&*<”s3 THEN ESTSLQ-t 
890 If Yt-CHRf i 641 THEN ESTILQ?? 

900 IF Yt*CHR*t55I THEN £STIL0»3 

9L0 [f Yf-CKRfU61 THEN ESI I LQ = 4 Tacilitar o **u ^nuBEi o 

92fl IF Y£=tHRf i 373 THEN ESTILO-5 

930 IF ¥t-CHRt<94) THEN EST ■ L0=6 

94U TF YF=CHI»i3Bi THEN ESTEL0*7 

950 GOTO 56tJ 

?*0 FOR 3 = 1 TO 1 1 : READ CLU ,1 1 1 NEK T^ftESI STRQ= 1 

970 BATA 1ST, | U ,201 ,205, 24* , I , 199 t 2M , 2*2'. 2ft3 

93<i FOR 3 ■ 1 TO 1 1 : READ CU2 p i)lN£!T 

790 BATA 391 ,17-9,230, 594, £97,217, 3 92,380,195, 193, 594 

lOCiO FOR 1 = 1 TO 1 1 : READ CL <3 , 1 1 ! NE .XT 

£010 DATA 183, 164,214, 194', 215, 3 89, 2U , 18 2, 199,208,210 

3 020 FOfi 1-1 TO E E : READ CK4J1]NEH 

L030 DATA 334,179,21^1 205 ,214,190,212,181,190, 207 , 209 

1040 FOR |>1 TO n:CLtS,n = 174:MEl(T 

1050 for £ = ] TO It;a^ t n-I77:NEST 

1060 FOR I«! TO HiCLO f n*Z19tHEXT 

1070 RETURN 

!OflO — > OR AVAR DA BOS 

1090 ON ERROR GBTC 1170 
1100 SCREEN M,0:C0SUB 1600 

11(0 COLOR Y^lEiLOCATE 1 2,20: PRINT OPEAO 2 - Gravar teias -e» Disco 

1120 LOCATE 24 , 7 ! PR E HT * Para voltir ao llenu Princip*! rttprcnda <Entsr> para noae tfo arquivo *3 
H30 LOCATE 12 , 7 : PR 3 HT ' Efltre com □ noit« dn arqusyo : " ; : C DLQR 7 ,2: A= E2: B-39; TruiS; GOSUR E470 
1140 IF R t* * " THEN GOTO 300 

U50 SCREEN 0 : DEF S£G=SN»S00 : SLGAD -TELA.«I “ P 6 
I3iO BSAVE fif.O.fcHlOGOiSDTO 100 

3 170 LOCATE 15,S6:PR3HT 'Errv " 1 u ]f OR 1 = 1 TO 2000: NEXT 
tlSO GOTO 1 L 00 

1190 ' J CAFlftEGAR DADOS 

1200 ON ERROR GOTO 1280 
1210 SCREEN 0 T 0 ,04 00 SUB 1400 

1220 CCLOff 7 1 lliLQCATE 2,23! PRINT DPCAD : - Ur r&gar telat Discs ■’ H l 

E230 LOCATE 24, 7: PR ENT * Para veltir ao Reim PrUebp*L respcmda < Enter 3 par* rno»e do arquivo ■( 

E240 LOCATE l2 f 7:Pfi[NT * Ent ra cam a not,* 6a arqaivo : - s COLOR 7 t 2i A s 12: B=37 : TN = 1 5: -GQ3UB 3470 

I2&0 IF R f = * * THEM CDTO E 00 

E260 SCREEN 0 : DtF SE 0 = &H BSO 0 : ft, 0 A D fil T 0 

127 0 BBAVE "TELfiUf P%0 ,lrFELOOO: GOT 0 100 

1 ?B 0 LOCATE E5,34;PREKT 'Erro " f ':FUft 1-1 TO 2000: NEST 

1290 GOTO 1210 

1300 ■- > GEftAR PRO GRAMA DBASE 

13 1 0 ON ERROR GOTO 1520 
1320 SCREEN 0,C^0tG0SUR l40a 

133.0 COLOR 7 f L E : LOCATE 2 t 23: PRINT •— OPCAD 4 - Garar pro^rfi*a «• dBflSE — -j 

1340 LOCATE 24,73PR3Nr F Para voi t ar ao Menu Pnntipil responda CEnter : para ftpitg do arquivU 

E350 LOCATE 12.,7:PR1HT " Entr* COP 0 n&ftt do program* : H ;: COLOR 7 , 2 1 A ■ i 2 i B“40 : T H= 1 5 : GO SUB 5470 

1360 If Rt=" THEN GOTO 100 ELSE POSt = R* 

E370 COLCT? 7 , E E : LOCATE 34 ,7; PRINT " Entrt cs« prosse-g ui »er. 1 ; ^ % "jtCOLOR 7 , 2 : A- E 4 : 8=3 4: Tfl = 30; EOSU 
B E 470 

13B0 OPEN PB 8 T FOR OUTPUT AS. #t 

139 0 DEF SE G= &HR 8 QTI t RL OAD - T ELA. f«' T 0 

1400 PAIHTil , rl * dfflSE Ferr an-ent at - Gtracao de tei as *" 

1410 PRINT*!,-* J f J , A. - Cortario - 1939 f 

1420 PRINT! J. t H ^ 

14J0 PR I NT 1 1 /CLEAR* 

L 44 0 PRINT*) , “SET TALK OFF" 

1450 FOR 1-0 TO 23 : PRC NT* 1 ., ‘ *“ 1 | H j ' T 1 SflY ^ ; CH R4 t 3 4 » | 

146.0 PQ& T*0 TO 150 £TtR ? 

147 0 P= PEEK tt 1 4 1 60 H-T 3 i PRINT 1 1 jCHR* < P3 1 
1 4 SO NEXT i PRINT* 1 ,CHRt 1 34 j 1 NE l T 
1490 Pfi I N T4 ! , St 
1500 CLOSE * 1 
15 E 0 SOTO LOO 

1520 LOCATE l5,36:PEUtST E*td ifQft Ul TCI 2UOO:NEIT 

1530 GOTO 1320 
1 = 4 0 •- 1 FINAL tZAft 

1550 SCREEN 0:CULDR 7 f .2; CIS; LOCATE' I2 t 5;PRlNT “Cuoflrmi siUi do tltltna <S/N1 V 

5 560 Yt-INKEYf:IF ¥■1=-“ THEN 5 540 

1570 ]f H= rt 5- QR Yt=-S“ THEN LOCATE , t L , 0 T L 3 : SCREEN 0 : EN D 

1580 IF YJa-n» Oft Yt--N’ THEN 100 

1590 GOTO 3560 

1600 ' MOLOURA 

1610 COLOR 7 , 2 1 Cl S 

(620 LOCATE i , S : i NT CHRt 120 1 M-STR 1 NG* ( 70 , 205 ) +OHR* U &7> j 

1630 FOR E =2 TO 24: LOCATE I T 1 : PRINT CMt U 341 j ; LOCATE | t SGtPR[NT CHRl ■: t A 6 ) T S ME Y T 
1 64 0 LOCATE 75,liPR]Mr CHftt 1 200 1 + S7RINGt *:70 1 205 MCHRl C 1 383 j 
1650 LOCATE 3 , l S Fft ! NT CHR* i I 991 *ST* I NSt i 78 , 196} +CHRt 1 102) J 
1640 RETURN 

1670 ' 3 DEF - [ MPUT 

1400 ^LOCATE A,E; PRINT CHRtt95> ; :d»0 

1490 Y*=INEEY*j IF tl=" F THEN 1690 

170 0 If J-ttt THEM 1 720i 

1710 IF VTi=- “ AMD THEN Ri»Rf4Yi : J=J + 1 iGGTO 1750 

1720 IE YiatHRfCISl THEN LOCATE A, E+J ; PR E HT ■ “ 3 1 RETURN 

|73>0 IF ¥*=CKR*iB> THEN 3F J >0 THEM }± J - 1 : Rf = LE f M Iftf , d 3 ELSE 3690 

1740 IF Yf=CHPtC24‘ TKGN LQC-ATE A, B: PRINT STRUIgtU + 1 , * ■ J j a GOTO EtS 6 

1 7S"& *Y Z ■ TTM-Jf 3 i LOCATE A, 6 iPftlKT Rf ; CHRY ( 95) j EET'RINGt ( 1YI , ' *' 1 1 

1760 GOTO 1690 



tenor ao cursor 

[Alt! + [num] - (num » 126) preen- 
che a linha de caracteres 

Outras teclas apresentarao no vi- 
deo o seu caracter correspondente. 
Mod o desen ho: 

[Setas] - movem o cursor 

[ESC] - volta ao modo texto 

[ENTER! - avanca uma linha 

[TAB] - avanca cursor cinco posicoes 
a frente 

[Ctrl] + [Y] - apaga a linha do cursor 

[Num Lock] - ativa/desativa cursor 

[ E 1 m, E [ L t H [Home], [End], 
[PgUp], [PgDn] - desenham quinas 
e ligaduras 

[!],[“ L l 0 ],[$],[%],[ A ], 
[ & ] - trocam estilo de linha (7 estilos) 

A opcao 2 e a opp§o 3 n§o neces- 
sitam de maiores explicacoes. 
Referem-se ao armazenamento e S re- 
cuperacao de telas em disco. 

A opc§o 4 gera um programs fonte 
em dBASE. Aposentrar com o nome 
do programs, serS pedido o prosse- 
guimento, ou seja, o rumo que ira to- 
mar o programa depois de apresen- 
tar a tela. Isto e necessario porque o 
editor do dBASE nSo aceita os carac- 
teres semigr^ficos utilizados em nos- 
sas telas, o que imposslbillta a edlcao 
das fontes geradas pelo dBASE TE- 
LAS. 

Finalmente a oppao 5 encerra o 
programa, voltando ao BASIC ou ao 
sistema operacional, caso o programa 
tenha sido compilado. 
Implementacbes: 

Para facilitar o manuseio do pro- 
grams voce podera modificar os co- 
digos dos CHRS 0 presentes nas li- 
nhas 880 a 940, para que fique mais 
facil a mudanpa dos estilos de linha. 

Outra taitefa interessante seria com- 
pilar o programa, utilizardo um den- 
tre os varios compiladores BASIC do 
mercado. ® 



JULIANO JUNQUEIRA ASSUNQAO 6 
e stud ante da Faculdade de Ci§ncias Eco- 
nomicas UFMG. Trabalha com Basic, Pas- 
cal, dBase ill e C. 
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PROGRAMA 

Mantenha o controle da iiquidez domestica 


PC 


Sistema de orpamento 


Micro: PC XT /AT 
Memoria: 512 Kbytes 
Video: CGA / EGA / VGA 
linguagem: dBase 111 + 


domestico 


Requisites: Nenhunn * 



□ Benedrto Jose Barreto Fonseca Jr. 



O Sistema de Orcamento Domestico 
foi desenvolvido em um computador 
IBM PC eprogramadoem dBase 111+ . Ele 
§ composto por csnco programas e duas 
rotinas que devem ser digrtadas e orava- 
das separadamente. 0 sistema destina- 
-se aos usuarios do PC que desejam con- 
trolar seu orcamento mensal atrav£s do 
computador 

0 s-istema possui dois arquivos: FtE- 
CEITAS e DESPESAS. Estes arquivos de- 
verao ter a estrutura em anexo* Ao se ini- 
ciar o sistema, o usu&rto devera mseriras 
fontes de receita e as fontes de despesa 
nestes arquivos (ORCAINI); apos esta 
operac^o, o sistema nao mais voltar£ &s 
mesmas, Prevendo uma possivel mu- 
danga no orpamento dealguns meses, o 
sistema reserva tres campos em aberto 



apos o final das fontes. 

O sistema armazenard (ORCAINS) os 
orgamentosum seguido do outro, isto£, 
apos digitar o orcamento, o sistema co- 
ptara as fontes do arqui vo e modificara a 
parte anterior de acordo com os dados in- 
seridos. Como se pode notar, nao e per- 
mitida a saida ap6s o inicio da insergSo de 
dados. Se o arquivo RECEITAS possui o 
orgamento de MAI 090, a arquivo DES- 
PESAS tambem deve possui r o orga- 
mento do mesmo mes. 

O sistema permite a verificagao / cor- 
receio dos orca memos nos arquivos atra- 
ves do programa ORCACOR. Com este 
pragrama o usu£rio pode modificar o 
nome da fonte e o seu valor em caso de 
erro, 

0 sistema possui opgao para a exi- 



bigao de quaisquer dos orgamentos con- 
tidos nos arquivos (ORCAGRC), tendo 
tambem como opgao o orgamento 
ANUAL. 

Para rodar o sistema, entsre no dBase 
111+ e digite DO QRCA1. 

OBSERVAgOES 

1 - 0 sistema tambem roda no FGX- 
base+ , devendo o usuario apenas mu- 
dar os parametros da rotina auxiliar TI- 
MER, levando-se em conta que o FOX § 
mais rapido que o dBase. 

2 - 0 sistema rodarS com maior rapidez se 
©stiver em um Winchester. 

BENEDITO JOS£ BARRETO FQMSECA 
Jr. cursa Engenharia EI6trica na Escola Po- 
lit£cnica da USP. £ usuiriode um IBM PC, 
onde programa. 



• SISTEMA DE 0RQAMENT0 



* 

* PROGRAMAs 5 1 STEM A DE ORCAMENTO DOMESTICO 

* AUTOR: BENEDITO JOBE BARRETO FONSECA JUNIOR 

* DATA; l<>/02/S9 
f 

* PROGRAMA PRINCIPAL 

* 

CLEAR SETS 
SET ESCAPE OFF 
BET STATUS OFF 
SET CONFIRM OFF 
BET DELIMITER OFF 
SET MENU OFF" 

SET TA4 F OFF 
SET COLOR TO W/N,IM/bl 
STORE ■' " TO WHl 
SET COLOR TO G 
CLEAR 

0 UI TO •-,/'* DOUBLE 
e is.l TO 20*79 DOUBLE 
SET COLOR TO 0+ 

fi 2,2 SAY BRACE ( 28 )■*■" ORCAMENTO DOMElST ICO " 

<3 hi AY " g en s : IJ 

SET CULOR TO W 

DO 

USE RELEITAS 
IF EOF t ) 

PUBLIC LUC 
STORE 7 TG LOC 
SET COLOR TCJ GR+ 

£ $,26 SAY "LnaceiD do Arqu i v di " 

SET COLOR TO BG+ 

G b , 45 SAY 11 RECEITAS" 



DOMESTICO 



USE RECEITAS 

DO ORCAINI 

SET COLOR TO GR+ 

STORi: 12 TO LUC 

& 10,26 SAY "Cridcao do Arquivo" 
SET COLOR TO R 
£ SAY ■' DESF'ESAS" 

USE DESFESAS 
DO ORCAINI 
END IF 

USE RECEITAS 
DO WHILE WH1-" " 

DO ERASER 

SET COLOR 10 GR/N+ 

® 5,38 SAY ''MENU" 

SET COLOR TO W/N 



& 7,27 SAY "Insenr dados,*. < I ) F ' 

& V , 27 SAY '■Cer/ceiF-ri.cji.r rlados. , , , ( 2 }" 

& 11,27 SAY "Urcanientos (3)" 

e 13 i2'7 SAY (4)-' 

USE RECEITAS 
STORE “ " TO DPI 



® 16,24 SAY "tecle a tipcaq tJe'sejad-a 
® L6 t 54 GET 0F1 PICTURE "IT 
HCEAD 
D-D CASE 

CASE OP i “ " 1 " 

DO ORCA flWg 
LOUP 

CASE DP4 = ' f 2'' 

DO ORCACOR 
LOOP 

CASE OF'4-' 1 3 " 
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ucr 

LOOP 

CASE OPl"'-*'' 

DU URCAHN 
RE I URN 

ENDCASE 

SET COLOR TO GR/N *+ 

e 1? , 20 SAY "teele um numerg de 1 a 5." 

00 TIMER 

SET COLOR TO W/N 
LOOP 
ENDDD 
RE TURN 

* 

* ORCAlNj - PROGRAM A AUXILIAft DO SISTEMA DE ORE AMENT □ DOMESTIC^ 

¥ 

STORE ,p " TO QP2 
STORE " ■' TO WH3 
STORE 1 TQ NUM 
DO WHILE WHo= h 
SET COLOR TO W 

IF ap2 = " 11 

STORE SPACE ( SO ) TO REC 
END IF 

« LOO, 5 SAY STR ( NUN )+"». fonte : <■ GET REC 
READ 

IF IREC=SfACE(50n 
IF C NU'M— 1 ) 

e 19,16 SAY SPACER 62 } 

SET COLOR TO GR+ 

19,16 SAY "Uqce necaasita de pelo isros UMA tdrater" 

DO TIMER 
LOOP 
ELBE 

& 19,16 SAY SPACE f 62 ) 

SET COLOR TO 6R+ 

STORE " " TO 0F3 

& 19,16 SAY "Dgagj a me-smo final izar? (S/N)" GET CP3 PICT " E " 

SET COLOR TO Ini 

READ 

IF 0P3-"N " 

LOOP 
END IF 
EXIT 
END IF 
END IF 

€ 19,16 GAY SPACE ( 62 J 
GET COLOR TO GR+ 

STORE " * TO OP 2 

6 19,16 SAV "Cantirma (S/N)-?'" get OP 2 picT - ! " 

SET COLOR TO W 
READ 

IF 0P2= "S" 

APPEND BLANK 

REPLACE RECEITA WITH REC 
STORE NUM+I TO N|JH 
STORE 11 " TO 0P2 
EMDIF 

SET COLOR TO GR+ 

e 19,16 SAV "Para finalizar del**? a campn en branco . " 

LO0F 

ENDDO 

STORE 1 TO OUTROS 
DC WHILE OUTROS <4 
APPEND BLANK 

STORE "OUTROS <" +RIGHK STRt QUTR053 ,1 ) + " |" TO REC 
REPLACE RECEITA WITH REC 
STORE OUTRDS+1 TO OUTROS 
ENDDO 
RETURN 
% 

% OR C A 1 NS - PROGRAMA INTESRANTE DO SISTEMA D€ ORCAMENTO DOMESTICO 

t 

use RE CE I TAB 
STORE " TO NOUN TH 

STORE " " TO YEAR 

8 TORE 11 N " TO 01 
DO WHILE C l^= "N" 

DO ERASER 

SET COLOR TO GR/N + 

@ 19, 16 SAY "Para abandOPar pperacao, dsixe OS Compos em branco," 
@ 6,20 SAY " frise-rcao de dados orcameFitarios 1 ' 

SET COLOR TO W/N 

<2 9, 2^ SAY "digits □ mes do orcamentD...:" GET MOUNTH PICT " ! ! * " 

& 11,20 SAY "digite Q aria do ore amentQ . , - : " GET YEAR PICT "##" 

RtAD 

IF NOUNTH*" 

EXI T 
END IF 

e 19,16 SAY SPACE (62) 

SET COLOR TO GR ♦ 
e 19,16 SAY " Cant irma (’S/N) 7" 

GET COLOR TO W/N 
<3 19,32 GET Cl PICT " ! * 

READ 

IF Cl^'S" 

EXIT 
ENDIF . 

LOOP 

ENDDO 

IF MOUNT H=" 

RETURN 
ENDIF 
DO ERASER 

£ 6,20 SAY " Dpsejamas idtorms-ihe que para O per Faito" 

& B„2C SAY " tune lanamem to do Sist-t-m® de area men to" 

ra 10,20 GAY "efi necesSario quc ds da.dos a serem p nmpu tadas' 1 

d 12, 20 BAY " dovpm s er inseridot ers uma sessao, portanto" 

b 14,20 SAY " rtao fcraCi pnssivel a said* apos d initio da 1 " 
fg .16,20 SAY " c cjm put t ac aO dOS dados." 

@ 19,16 LAY SPACE <62} 

STORE " " TO OF 1 

SET COLOR TD GR-t 



® J9,16 GAY "Desej* inserir os dado'd agor*7 (S/'N)->" GET 0P1 

GET COLOR TO W/N 

READ 

IF OPlff-N" 

RETURN 
END J F 

0 19,16 SAY SPACE! 42 > 

@ 19,16 BAY "... PROCESS ANDO - , , " 

GO TOP 

STORE "N" TO C2 
DO WHILE .NOT. EOF ( ) 

1 1- MQU Y E A^nOUNTH+ YEAR 
SET COLOR TO GK * 

<i 19,16 GAY "Este ArquivO j* eKiste, . 

SET COLOR TO W/N 
DO TIMER 
STORE "G" TO C2 
EXIT 
ENDIF 

SKI? 

END DO 
IF C2^ ,i S" 

RFTUIYN 
END IF 

STORE 1 TO COUNT 
STORE " " TO WHi 
GO TOP 
I F MOUYliAW 111 

DO WHILE WH1— " " 

SO COUNT 

IF rOUYEA- "=«===" -OR. EOF < J 
EXIT 
LIND IF 

STORE RECEITA TO REC 
APPEND BLANK 
REPL RECEITA WITH REC 
STORE CQUNT+1 TO COUNT 
LCQP 
ENDDO 
ENDIF 
DO ERAStR 
GO TOP 

DO WHILE MQU YEA# " 

SKIP 

ENDDO 

DO WHILE -NOT. EOF ( ) 

SET COLOR TO GR+ 

e 6,20 SAY "Ineercao de dados orcamen ta r ios - RECEITAE' 1 
SET COLOR TO U 
e 19,16 SAY SPACE < 62 > 
e 9/20 SflY "MES/AWO;" 

SET COLOR TO E 
@9,29 SAY MUUNTH 
@ 9,32 SAY YEAR 
SET COLOR TO W 
@ 11,20 SAY "RECEITA:" 

SET COLOR TO W-r 
9 U ,29 SAY RECEI TA 
STORE 0 TO VAL 
SET COLOR TO W 

@ 13,20 SAY YALOR . . : " GET VAL PICT » .«fl u 
READ 

REPLACE VALOR WITH VAL 
REPLACE MOUYEA WITH NOUN TM+ YEAR 
SKIP 
LOOP 
ENDDQ 

APPEND BLANK ' 

REPL MOUYEA WITH "■« :■■■■' 

UGE DESPESAS 
e 19,16 SAY SPACER 62) 

H 19*16 SAY "... PROCESS AN DO , 

STORE 1 TO COUNT 
IF MOUYEA#" rt 

DG WHILE WH1=" ,r 

QQ COUNT 

IF rtOUYE A= " = ==== " .OR* EOF ( } 

ex it 

ENDIF 

STORE RECEITA TO REC 
APPEND BLANK 

REPLACE RECEITA WITH REC 
STORE COUNT +1 TO COUNT 
LOOP 
ENDDO 
END I F 
GO TOP 

DO WHILE NO UVEA#' 1 
SKIP 
ENDDO 

e 19,14 SAY SPACE (62) 

DO ERASER 

DO WHILE .MOT. EOFO 
SET COLOR TO GR+ 

© 6,20 SAY 11 Inaercao de dados ore a men- tafiOfi - DESPESAG" 
SET COLOR TO W 
@ 9^20 SAY "MES/ANO:" 

SET " COLOR TO 6 
& 9*29 SAY MOUNT H 
a 9,32 SAY YEAR 
SET COLOR TO W 
@ 11,20 SAY " DESPESA ; " 

SET COLOR TO W+ 

5 11,29 SAY iRECEITA 
STORE Ot> TO VAL 
SET COLOR TO W 

6 13,20 SAY "VALOR. . : " CiST VAL FTCT " BWBUtttt llflltfl . # It " 

READ 

RLHL VALOR WITH VAL 

REPL MOUYEA WITH MOUNTH+Y^AR 

SKIP 

IF , NOT- EOF ( } 

LOOP 
END I F 
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Andllse, Tele pro cess a men to e 
Informatics Editors S.A, 

Rua Washington Luiz, 9 - gr 403 
Rro de Janeiro - RJ - Cep: 20.230 



E3TT 

£ NDDU 

APPEND BLANK 

REPLACE MOUVEA WITH ■* = =>*= = ■' 
U 5 E 

RE I URN 



I 

* ORCACOR “ PROGRAM A INTEGRANTS DO SISTEMA DE ORCAMENTQ DQMESTICD 

STDRE " - TD WH1 
DO WHILE WH1-" 

DO ERASER 

USE Rti.CE I TAS 

STORE ■» " TO MDUNTH 

STORE " 11 TO YEAR 

SET COLOR TO GR+ 

@ 6*20 SAY "Corrccaa e venficacao de dado-s Qrciliiiefitairiaa" 

SET COLOR TO W/N 

® 9 >20 5AY "DIGITE O MES DO GRCAMENTQ, . * r" GET MOUNTH PICT "»<«■> 
e lip 20 SAY "DIGITE 0 ANO DD ORCAMENTD. . , : " SET YEAR PICT 
@ 19*16 SAY SPACE ( 62 ) 

SET COLOR TQ GR+ 

® 19,16 SAY "Para abandonar operacao delxe as campon eh braq^Q " 

SET COLOR TO W/N 
READ 

IP MOUNTH-" " 

EXIT 

ENDlF 

STORE " ' h TO OP1 
0 19*16 SAY SPACE (62) 

SET COLOR TO GR+ 

@ 19,16 SAY "Confirms? (S/N)->" GET DPI PICT " 1 " 

SET COLOR TO W 
READ 

IF 0P1= "N" 

LOOP 
END IF 
GO TOP 

DO WHILE .NOT* EQF() 

IF HQUYEA-MDUNTH+YEAR 
EXIT 
END IF 
SKIP 
ENDDO 

IF MOUYEA#MOUNTH*YEAR .OR. JiOUYEfl=" 

SET COLOR TO GR+ 
d 19,16 SAY SPACE (62) 

£ 19*16 SAY "Este orcantento aa,nda nao foi p (" qc e 5 s ado * - * " 

DO TIMER 

e 19*16 SAY SPACE (62) 

RETURN 

ENblF 

SET COLOR TO M/N 
DC ERASER 

DO WHILE MGUYEA4) “=■■■=“ 

SET COLOR TO BG/N + 
e *>20 SAY "R E c E I T A S" 

SET COLOR TO W/N 
@ 9*20 SAY ’'MES/ANO; -1 
SEI COLOR TO G 
3 9,29 SAY MDUNTH 
@ 9 * S3 SAY YEAR 

ser color to w 

e 11,20 SOY "RECEITA:" 

9 lo ,20 SAY " VALOR . . : 11 
SET COLOR TO W+ 

(? 11,29 SAY RECE1TA 
@ 13,29 SAY SPACE (20) 

« 13,29 SAY VALOR 
STORE " 11 TO OP2 
SET COLOR TO GR+ 

0 TURE ^ T | ^ ^ * Avantar. ( ) Rotroceder . ( ) Corrigjr. ( ) Sair.'* GET GR2 PI 

SET COLOR TO BG/N-t- 
£ 19,17 SAY "A" 

® 19,30 SAY "R" 

@ 19,46 SAY "C" 
a 19,60 SftY "S" 

SET COLOR TO U/N 
READ 

IF 0P2 = ,| C i ■ 

STORE RECEITA TO REC 
SI ORE VALOR TU VAL 
& 11*29 GET REC 

£ 13*29 GET VAL PICT " (Until . ## " 

READ 

REPLACE VALOR WITH VAL 
REPLACE RECEITA WITH REC 

END IF 
IF 0P2=" A" 

SKIP 

END IF 
IP 0P2b m R'' 

IF (.NOT, EOF ( ) ) -AND. ( MUUYLA# "====- * ) 

SKIP -1 

END IF 

IF MQUYEA= ,, =p=h»»'' 

SKIP 
END I F 
END I F 
IF GR2*"S" 

EXIT 

END IF 
end Do 
DO ERASER 

a 9,20 SAY "MES/ANO" 

SET COLOR TO (5 
a 9,29 SAY MDUNTH 
§ 9,^ SAY VtVih' 

SET COLOR TU W 
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ti 11, 20 SftY "CREDITQ. * , . - 

BUM VtfLQR FOR MOU YEA^MQU NTH+ Y E AR TO VPLCRE 
SET COLOR TO BG+ 

® 11,39 SAY VALCfiE 
SET COLOR TO U 
STORE M 11 TO Ch 

READ*^ "tHwIquwr teclfl para prtjssfigyir . , . “ GET CM PICT 

USE QE5PESAS 
□O TOP 

DO WHILE .NOT. EOFO 

IF mduyea-mounth+year 
EXIT 
END IF 
Skip 

enddo 

OD ERASER 

SET COLOR TO R/N 

3 6*20 SAY 14 D E S P E S A S" 

SET COLOR TO W/N 
DO WHILE MCUYEA “ ===i«« 

® 7,20 SAY “ M£S/AN0" 

SET COLOR TO- 6 
0 7, 29 SAY MQUNTH 
@ 9,33 SAY YEAR 
SET COLOR TO W 
a 11,20 SAY "DESPESA i " 

0 13*20 SAY " VALOR . . : “ 

SET COLOR TQ W+ 

0 LI ,29 SAY RECEITA 
« 13*27 SAY SPACE (2C, 

0 13,29 SAY VALOR 
STORE " " TO QP3 
SET COLOR TO GR+ 

CTURE 1 ”'" 6 SflY * Rvaocar. < > Retraced er. f } Corrigir. t ) Sair," GET QP3 PI 

SET COLOR TO R/N 
0 17,17 SAY "A" 

0 19,30 SAY m R il 
® 17,46 SAV "C” 

0 19,60 SAY !, S" 

SET COLOR TO W/N 
READ 

IF 0P3='‘C J ' 

STORE RECEITA TO DES 

STORE valor to val 
0 lip 29 GET DES 

3 13,27 GET VAL PICT <' #####<*##.*# - 
.READ 

REPLACE VALOR WITH UAL 
REPLACE RECEITA WITH DES 
END IF 
IF 0P3-" A 11 
SKIP 
END IF 
IF 0P3=" R ,f 

JF (flOUYEflr'n-H 11 ) .AND. ( »NQT. BDF() J 
SKIP~i 
END IF 
IF PIDUYE A- 
SKIP 
END IF . 

END IF 
IF 0P3=":S" 

EXIT 

END IF 
ENDDO 
DO ERASER 
STORE " " TO WH2 
DD WHILE WH2* 

SOM VALOR FOR HOUVEA-MGXJNTH+YEAfi TO VALDES 

@9,20 SAY "MES/AWOt 11 

SET COLOR TO G 

@ 7,29 SAY MDUNTH 

@9,33 SAY YEAR 

SET COLOR TO W 

0 11,20 SAY “ DEEITD 

SET COLOR TO R 
@ 11,41 SAY VALDES 
STORE " 11 TO CH 
BET COLOR TO W 

a 17,16 BAY ''Oualquer tacla p/ proBSeguir _ " GET CH PICT » * « 

READ 

EXIT 

ENDDO 

EXIT 

ENDDO 

RETURN 



* 

t ORCAQRC - PROCRAMA INTEGRANT DO SISTENA DE ORCANENTO DOMESTICO 

DO ERASER 
STORE " " TQ WHl 
DO WHILE WHl 22 11 " 



SET COLOR TO GR/N+ 

0 6,27 BAY "ftpresent^ciO de 
@ 17,16 SAY SPACEf62) 

@ 17,16 SAY "Para abandonar 
SET COLOR TO W/N 
0 7,20 BAY "Orcflfliento' 1 
STORE H M TO QFl 
0 7,30 SAY " por mps <MJ ou 
READ 

IF DP1= " 1 



Ore amen tos" 

a operacao d ei y@ o cajnpo era branch , 



por amp (A)?- 1 GET QFl PICT 14 !" 



EXIT 
END IF 
DO CASE 

CASE QP1— "ft" 



UBE RECEITAS 

STORE " 11 TD MOUNTH 

STORE " " TO YEAR 

@ 11,20 SAY "digits □ met aa Ofiamento, : " G.E'l MOUNTH PICT ,r 
READ * ^ &AY " C,i3it, * ? ° ano dQ arc amenta. : ■' Gt f YEAR PICT "«# 
60 TOP 



LOCAQAO 



PC - XT/AT 

MONITORES DE VIDEO 

IMPRESSORAS 

WINCHESTER 

SOFTWARES 

SCANNER 

DRIVES 

MOUSE 

OLDNEW 

Av. Nllo Pefanha, 50/415 
CEP 20044 - Rio de Janeiro-RJ 

Tel: (021)220-2653 



SO GAMES 



PC - AMIGA - MSX 2 
SO GAMES PC 

AFTERBURNER 20 500,00 

GHOSTBUSTER II 40 500,00 

RAMBO 111 «... 20 400,00 

R0B0C0R ..... 4D 600,00 

CRIME WAYVE (C/MAN) 8D 200000 

INDIANA JONES - A$AQ 60 1200,00 

SOGAMES 01 - 5 JOGOS ID 350,00 

SOGAMES 02 - 10 JOGOS ID 500.00 

* A cada 10 discos voce ganha mals 2 grava- 
gdes gratuitamente. 

* Para outros logos e utllltarios, pega cata lo- 
go gratis mencionando Itnba desejada. 

*Gs discos nao estao inclufdos, o prego por 
unidade e Cr$ 80,00. 

* Envle seu pedido, anexando cheque nomi- 
rial em favor de: Sergio Luis C. Santos. 

•Acrescente Cr$ 500,00 para despesas pos- 
tals, e receba o seu pedido em ate 5 dias, VI A 
SEDEX. 

SO GAMES 

Cx. Postal 1852 CEP 20001 - RJ. 



► 
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Game 

ofTime 

SOFTWARE 
E HARDWARE 



Av. Jabaquare, 1598 - Sa!a 8 
ao lado do metro Saude) 
CEP 04046 -Sao Paulo 5P 

Font: (011)581*3739 



DU WHILE , NOT . EDF £ ) 

IF NUU YEA - MQUN T H + YEAR 
EXIT 
END I F 
SLIP 
ENDDO 

IF MGUYEA#MCUNTH+YEAR 
@ 19, It SAY SPACE ( 62 > 

SET COLOR TO BR/N+ 

@ IV, 16 SAY "Este arquivo nao 

DO TIMER 

EXIT 

END IF 

DO ERASER 

SET COLOR TO SR+ 

(? 5,34 SAY "ORCAMENTD'' 

SE1 COLOR TO W 
e S , 20 SAY "MES/ANDe' 1 

@ 10,20 SAY "CREDITQ i " 

e 12,20 SAY "DEBITD 

Q 14,20 SAY -'RESULT ADO 

STORE MOUNT H-t-" " -+-YEAR TO REC 
SET COLOR TO 6 
a !3 f 29 SAY REC 
SET COLOR TO &G+ 

SUM VALOR FOR MGU YEA=J1dUNTH+ YEAR TO VALCRE 
G 10,41 SAY VALCRE 
SET COLOR TO R 
USE DE.SPESAS 

SUM VALOR FOR riOUYEA=MOUNTH+YEftR TO VALDES 
$ 12,41 SAY VALDES 
V ALRES= VAL C!RE - V AL DE B 
IF VAL RES >0 

ST RRES = " SUPER A V I T " 

SET CQLQR TO PG+ 

ELSE 

STFtftES=" DEFICIT" 

SET COLOR TO R 

CNPIF 

£ 14,41 SAY VALRES 
Q It, 35 SAY STRRES 
STORE " M TO GP2 
SET COLOR TO W 

& IV, J 6 SAY "QuaLquer t©C 1 A pf prosseguir." GET OP2 PICT IH ! " 

READ 

IK IT 

CASE OPl^-A" 

STORE " " TO YEAR 

£ 13,20 SAY ''digits o ancs do QrCAPfiento . . : " GET YEAR P ICT "##" 
READ 

USE RECEITAS 

SUM VALOR FOR SUBSTR ( MOU YEA , 4 , 5 ) =YEAfi TO VALCRE 
USE DISPESfrS 

SUM VALOR FDR SUBSTR i MOU YEA , 4 , 5 ) =YEAR TO VALDES 

DD ERASER 

SET COLOR TO GR + 

B 6,30 SAY 'TORCArtENTO DO AND " 

SET COLOR TO.G 
B 6,47 SAY YEAR 

SE1 COLOR TO W 

@ V , 20 SAY "CREDITQ. ; " 

® 11 ,20 SAY " DEBT TO, ... : " 

@ 13,2V SAY "RESULT ADO ; " 

SET COLOR TO BE+ 

@ 9,41 SAY VALCRE 

SET COLOR TO R 

£ 11,41 SAY VALDES 

STORE VALCRE -VALDES TO VAL RES 

IF VAI-RESXJ 

STRRES= "SUPERAV I T " 

SET COLOR TO &E + 

ELSE 

SET COLOR TO F: 

STRRES="DEF ICI T" 

END IF 

® 13,41 SAY VALRES 
@ 15,35 SAY STRRIS 
SET COLOR TO W 
STORE " " TO 0P3 

19,16 SAY “dualquer teclfl p*ra pro^segu ir , " GET OF'3 PICT " 1 1 
READ 
EXIT 

tW DCASE 
EN!DD0 
RETURN 
* 

* ORCAFIM - PROGRAMA INTE6RANTE DO SiSTEMA DE QRCAMENTO DQMEST I CO 

t 

DO ERASER 

B,22 SAY "este Sistesna fox despnvaLvjtJo por" 

set Color To gr+ 

11,22 SAY "Eededito JdS^ GarrEtD Fonseca Jr." 

SET COLOR TO W 

e 1 ? , 16 SAY " DE 1 XANDU U S 1 5i t MA , . , " 

DO. TIMER 
RETURN 
, LIST STRU 

Structure Tor database i C iRECEl TAS,dbf 

Number a f da tA records: / 

Da tf? oT last update ; 01/29/90 



Field 


Field Maine 


Type 


Width 


i 


NOUYEA 


Character 


5 


2 


RECE l T A 


Charge ter 


SO 


3 


VALOR 


Numen rr 


10 


*¥ Tot^L ¥* 




66 



, UTaL DESPESAS 
, LIST STRU 



S tr L'C tu r e t or da tA bA SO: C t DESFh^AV . d h t 
Nyintier oi data* records: 10 

Dat-e o> last U|»latif ; 01/2V/9O 

Field Field NahU e I/pe Width 

1 MOUYEA C.bar^tar 5 

2 REC LI TA Character 50 

3 VALOR Numeric 10 

*t Total *t 66 
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CONCESSIONARIO DE VENDA DE ESRAQO 

Para Esta Pagina L&F Desing 




LIGHT-PEN 



LANgAMENTO | 



MSX 



Quern tem itm MSX 10 ou 2.0, nao precise male de lapis e papel pa- 
ra desenhar. 

Com a LIGHT- PEN voce pode fazer seus desenhos diretamente ma tela 
da Tv. 

Alem disso a LIGHT-PEN pode serfacilmente utitizada nos seus pro- 
gramas em Basic ou Assembler. 

Na compra de uma LIGHT-PEN voce recebe gratis o programs LiGHT- 
ART para fazer seus desenhos e 0 program a LIGHT- MENU. 

INFORM AQOES SOMENTE PELO TELEFONE (011)296-2015 

Prego de langamento Cr$ 4.500 r 00 mais Cr$ 500,00 de despezas pos- 
tal 



Prego Veilido at6 20/09/90 

Para adquirir sua LIGHT-REM basta enviar Cheque Nominal a: 

ANSELMO SALZANI 

Praga Heitor Levy, 30 - Tatuape 
CEP 03316 Sac Paulo-SP 

REVENDEDORES 

PLACE TECH GAME OF Ti ME 

Rua Domingos die Morals, 1786 Cj. 4 Av. Jabaquara, 1598 Sal a 8 
CEP 04010 - Sac PauloSP CEP 04042 - Sao Paulo-SP 

Tel. : (01 1)575-3087 Tel. : (01 1)581-2739 



COMPRE SEM SAIR 
DECASA! 



Despachamos via VARIG, VASR TRANSBRAStL, Correio SEDEX e Rodoviario 

MICROS PC-XT/AT TELEMIKRO: 

Config. 2 drives, 704K/1MB RAM - padrao PS 2 c/monitor 
At-286 1 drive, 1MB RAM, Winch. 4 MB, PS2, c/monitor 

Outras config uragoes XT AT286, — UGU E- NOS ..... CON SUIT E 



PERIFERICOS: 

Winchester 30, 40 MB CONSULTE 
Drives 5.1/4 MSX/PC CONSULTE 

1M PRESSOR AS: 

ELGIN Lady-80 
GRAFIX GLX-80 
RIMA XT-180 
EMILIA PC 
EMILIA PS 



MONITORES: 

Angra fosf. verde 

Angra fosf. branco 
Angra fosf. ambar 
ADO fosf. verde 
Add fosf. branco 

Nasa fosf. verde ..... Cr$ BA RATO 
Monitores ADD a cores: CONSULTE 

MOUSE P/XT-AT: 



ESTABILIZADORES: 

SMS RG-800 0 8KVA 
Metron 0,8 KVA 

Outras potencies .. CONSULTE 
Nobreaks SMS/METRON CONSULTE 
METRGN/SMS/BK CONSULTE 



XMRB INPUT optico 
INPUT c/soft 

GABINETE P/XT-AT: 

/c have/led XT Baby AT 
c/chave/led XT/AT286 
c/chave/led AT386 
Torre AW-602 p/286/386 



DIVERSOS: 

Diskete Verbatim 5.1/4“ 36QK 
Diskete Nashua 51/4” 36QK 
Diskete 3.1/2" 720K 
Tecfado 101 teclas p/XT/AT 
Cabo p/Impressora/PC 
Cabo p/fonte de PC 
Componenteseletronicos p/fonte 



fontes mm. 

150/197 Watts p/XT 
185 Watts si in p/XT/AT 
220 Watts p/AT-286 

— SOLtCITE NOSSA LISTACOMPLETA 



NQRTRQN Comercial Ltda. 



SRTN 702 - Ed. Brasilia Radiocenter, sobreloja 43 
CEP 70710 - BRASILIA/DF ■ Tei. (061) 321-3865 e 
225-9472 




SHAREWARE • PC-XT E COMPATIVEIS 



J — L 



PROCESSADORES DE TEXTOS 

__r 


“L 


PLANILHAS 
1 L 


BANCO DE DADOS 

r 


~~L 


UTILITARIOS PARA IMPRESSAO 
r 


~~L 


TUTOR! A IS EDUCATIVOS 

r 


“L 


DESKTOP MANAGER 

r 


“L 


GERENCIAMENTO DE PROJETOS 





J — L 



GRAFICOS 

_r 


~~L 


CIENCIAS E MATEMATICOS 


r 


“L 


COMERCIAIS/FINANCEIROS 


8 




ANTI-VIRUS 


JOGOS 





SOLICITE CATALOGO COMPLETO 

(011)743-4143 



JAM SO FT INFORMATICA Rua Boa Vista ' 364 - CEP 09 570 - Sao Caetano do Sul-SP 








U Tl LIT A R 1 O 

Proteja seus disquetes contra os virus 




Pi 


c 


0 Inspetor PC 


Micro: PC XT 
Memoria: 512 Kbytes 
Video: CGA 
Lingua gem: Assembler 
Requisites: Winchester 



□ Vander Roberta Nunes Dias 



h£ algum tempo que os usu^rios 
do PC vivem sobressaltados com os fan- 
tasmas dos Virus, que costumam reen- 
carnar na imagem de softs famosos de 
domlnio publico, e exterminar os conte- 
udos de seus drsquetes. Mas ao control- 
rio do que muitos pensam, esses peque- 
nos programas que tern capacidade de 
se alastrar e escolher o momento opor- 
tuno para agir malignamente, chamados 
de Virus, n5o sao propriedade exclusiva 
dos piratas, pode ter sido verdade no ini- 
cio da praga, mas hoje, mesmo o mais 
honesto usu^rio, que s6 usa cdpias ori- 
ginals, est6 sujeito d con tarn tnaq§o de 
um virus. 

Mas o bicho nao 6 tio teroz assim. 
Existe um outro que tamb6m 66 muita 
dor de cabeca para usu&rios de winches- 
ter; os dedos e m3os bobas dos curio- 
sos leigos mais chegados. 

0 programa 

0 programa descrito a seguir se des- 
tina aos usu^rios que, como eu, j& sen- 
tiram o gostinho de um virus dangando 
no monitor e simultaneamente forma- 
tando o winchester, ou de ter a sen- 
sagao, no meio da rua, de que ao che- 
gar em casa eneontraria o irmao iniciante 
tentando recuperar o subdiretdrio apa- 
gado indevidamente. Seu funciona- 



mento e simples, basta carregar o 
INSPDRV.COM e, a partir daf, O INS- 
PETOR toma conta dos acessos eo 
disco, e qualquer pedido de giavagao ou 
formatagcSo s6 serci libera do se a tec I a 
SHIFT ESQUERDA estrver pressio- 
nada, durante todo o processo de gra- 
vag§o. 

AS L1STAGENS 

O programa estS dividido em duas Us- 
tagens Assembler: a listagem 1 cont&m 
o programa que ativa o INSPETOR na 
memoria, e a listagem 2, que o desativa. 

Para digitar as listagens, voc£ vai pre- 
cisar do programa utiiit^rio 
DEBUG.COM, que acompanha seu 
disco de Sistema QperacionaL 

Siga ent3o os seguintes passos: 

1- Ponha o disco que cont6m o 
DEBUG.COM no drive corrente, e 
carregue-o digitando DEBUG; 

2“ Apos aparecer o Prompt -, ponha um 
disco formatado que possa servir como 
disco teste, e digits El 00 [ENTER]; 

3- Digits os cbdigos hexadecimals da Lis- 
tagem 1 [ignore a coluna dos endere- 
gos) f sempre digitando dois digitos e em 
seguida um ESPAQO para passar ao 
proximo byte; 



4- Ao terminar a Listagem 1, pressione 
[ENTER] para voltar ao Prompt -; 

5- Digite N INSPDRV.COM [ENTER]; 

6- Digite R CX [ENTER] e em seguida 
047 A [ENTER]; 

7- Digite W [ENTER] para gravar a Lis- 
tagem 1; 

8- Digite El 00 [ENTER] e entre os c6- 
digos da Listagem 2 {ao terminar pres- 
sione [ENTER] para voftar ao Prompt -); 

9- Digite N INSPOFF.COM [ENTER]; 

10- Digite R CX [ENTER] e em seguida 
008 A [ENTER]; 

11- Digite W [ENTER] para gravar a Lis- 
tagem 2; 

12- Saia do DEBUG.COM digitando Q 
[ENTER]; 

Se voe€ seguiu corretamente os pas- 
ses descritos at6 aqui, carregue o INS™ 
PETOR digitando INSPDRV [ENTER]. 
Deverci aparecer a seguinte mensagem; 

INSPETOR PE DRIVES - DEVILS 
SOFTWARE 1C) 1990 - VANDER R. 
NUNES DIAS 

INSTALADO. 

Para desativar o INSPETOR, basta in- 
vocar INSPOFF.COM. 




informatica entre amigos 

PC/XT/AT 



desenvolvimento 
* instaiagao 
* manutengao 
• software 
• treinamento 
• venda 



impressoras, estabilizadores, formularies, discos, fitas, mesas. 

Cibertecniea Informatica Ltda. — Rua Senador Danias, 117 Gr. 1941 — Tel.: (021) 262-8249 



• Listagem 1: INSPDSV.COM 
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• Listagem 2: INSPOFF.COM 



ENDEHECO C0D1G0S HEXADECIMAIS 
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CANAL 3 INFORMATICA 



HARDWARE A50CVPC/MSX/TK 



• MICROS PC - XT/AT 

• DRIVES 5 1/4 720 Kb 

• DRIVES 5 1/4 360 Kb 

• MEGARAM 256 Kb 

• IMPRESSORAS 
« DATACORDER 

• EXPERT/HOTBIT 



• DRIVES 3 1/2 720 Kb 

• MEGARAM DISK 

• MODENS MSX 

• CARTUCHOS 

• DISQUETES 

• PERIFERICOS PARA A500 

• PERIFERICOS PARA TK90/95 



1 



SOFTWARE UNHA MSX 

MSX 1.1 e 2.0: JOGOS APLICATIVOS 
E UTILITARIOS - ULTIMAS NOVIDADES. 

GRAVAMOS JOGOS NA HGRA!!! 

SOLICITE CATALOGO GRATIS 

ATENDEMOS TODO 0 BRASIL VIA SEDEX 
PROMO^AO DESTE MES: DRIVES E MEGARAM 



• S.O.S MICRO - POSSUIMOS ASS1STENCIA 
TECNICA PARA MICROS E PERIFERICOS 
LINHAS PC, APPLE, MSX e TK 
(Orgamento sem compromisso). 

CANAL 3 INFORMATICA 

Pga. Benedito Calixto, 66 - CEP 02599 
Caixa Postal 16375 - Sao Paulo-SP 

Tel.: (011)856-9647 

CORRESPONDENCIAS: Caixa Postal 16375 
CEP 02599 - Sao Paulo-SP 



COMPUTEC INFORMATICA 

A 

► PRESTAQAO DE SERVIQOS 

► DESENVOLVIMENTO DE SISTEMAS 
►VENDAS DE EQUIPAMENTOS E PERIFERICOS 



( PC CLUB ] 



GRANDE PROMOQAOH MESMO 

CADA 10 JOGOS, GRATIS 2 GRAVAQOES (SOCIO) 
CADA 10 JOGOS, GRATIS 2 DISQUETES GRAVA- 
DOS (NAO SOCIO) 

SOCIO Cr$ 900,00 NAO SOCIO Cr$ 1.500,00 
CAIXA POSTAL 15.265 CEP 0 1 5 9 9 

TEL.: (011)280-2760 



MICRO SISTEMAS 33 




REDI UNIVERSOFT 
INFORMATICA 
E COM. LTDA 



RUA CONSELHEIRO BROTERO, 589 - COfSU. 42 
CEP 01154 - SAO PAULOSP 



COMO FAZER PEDIDOS: 

ReJacone em uma fofha o nome cfos procfutos que voce deseja adqurrir anexe um 
Cheque Nomrnal e Cruzado para REDJ UNIVERSOFT INFORM ATJCA E COMER- 
GO LTDA e envie para o endereco do mroo da prim era p3g*na. Se preferrr, poder^ 
ser feito um depbsito direto. Banco BRADESCO Agenda 0330-9 Conta 66. 617-6. 
Neste caso envre uma xerox do cQmprpvante do dep&rto junto com seu pedido. 
Prazo de arendimento. 20 dias - Garantia; 365 dias. 



Fone (Oil) 825-5240 



COMPUTADORES - IMPRESSORAS - MONfTORES - MODEM - TRANSFORMACAO MSX 2 
MEGARAM DISK 256 - DRIVES 



ULTIMO LANCAMENTO 

A REDI UNIVERSOFT acaba de lan^ar uma nova opgao 
aoi usuarlos de MSX da Capital e da Grande Sao Paulo. 
TVata-s* da LOCASOFT. 

Na LOCASOFT voce podera alugar uma serie de Prod Li- 
te* para seu MSX. Ji a partlr deste mis estara a dfsposl- 
fao em nossa loja os wgulntes Item; 

* SOFTS em Dlsketes de 5.1/4 e 3.1/2. 

* CARTUCHOS de Jogos e apllcatlvos/utllltarlos. 

- FITAS DE VIDEO. 

Wentia nosfazer uma vlslta eflque por dentro de todas 
as vantagens que oferecemos, nessa opgao Inedfta. 



MSX PROFISSIONAL 

A REDI UNIVERSOFT desenvolveu um sistema que vai permi- 
tir utilizar seu computadorem atividades comerciais, trata-se do 

SCEI (Sistema de Controle Empresarial), que e composto por 
tres modulos: Cadastro de Clientes, Contas a Pagar e Con- 
trole Bancario. Para ser utilizado, o sistema requer urn drive e 
uma impressora Faca-nos uma vlslta e solicite demonstrate, 
certamante ele se adaptara as suas necessidades. 

Prego de Langamento CrS 8.500,00 



MSX CURSOS 

Estaremos lanpndo o pnmerro curse para computadores do padrSo 
MSX. trata-se do- curso de INTRODUCED AO BASIC CO MSX. Este cur- 
so visa faciJitar o usu^rio iniciance, ou seja, aquefe que acaba de adquirir 
um computador MSX e na marona dos casos ricam sem saber o que reaf- 
mente o micro podeti oferecec nao so na parte de jogos, como tambem 
rra area professional. Quafs os perif^neos que s3o realmente necessaries para 
rorna-fo um micro profissrona! e outras muitas mformaebes pratitas. Vfenha 
conferir. 

VEM All 

UNIVERSOFT GAMES VOL. I - O Livrodos manuals, 30 jogos enrre 
MSX I e MSX 2. Com tefas de todos 05 jogos, truques, vidas infinitas e po- 
kes. NAG PERGA RESERVE O SEU iA. 

UNIVERSOFT 

Os melhores jogos para 
MSX 1 

e os mais recentes 
lancamentos 
para MSX 2 



CONTABILIDADE MSX 

Para quern imaginava que o MSX fosse apenas um Video Game dis- 
farsado, pode comegar a mudar sua opiniao, porque acaba de sair do for- 
no, o mais completo Sistema de Contabilidade para os micros do padr^o 
MSX 

Este Sistema conta com manual completo e Suporte ao Usudrio. 

O usuSno tera os seguintes arquivos: 

Cadastro de Historian - Cadastro de Banco - Cadastro do Plano de Con- 
tas - Cadastro de Clientes e Fbrnecedores - Conta Corrente Clientes e Fbr- 
necedores - ElaboragSo dos tangamencos - EmissSo do Uvro Diario - Ba- 
lancete de Vferificagao - DemonstragOes Financeiras Balango Gerat. 

Prego de langamento Cr$ 9.000,00 



CENTER SOFT CLUB 

O Center Soft Club desde sua fundac^o conta com aproximadamen- 
te 1200 sdcros, venha vocC tambem fazer parte desta famflia 

Vfeja as vantagens que vote poderd obter tomandose socio do Cen- 
ter Soft Cub 

Descontos de ate 60% na compra de Softs (Packs Jogos - Super Packs 
- Super Jogos - Super ApJicativos - Super Utilities e Jogos para MSX 2.0) 
Descontos de at£ 15% em Drsketes Vrrgens. 



TRANSFORMACAO MSX 2 

Cobrimos qualquer oferta 





colecAo i 


COLECAO 2 


COLECAO 3 


COLECAO 4 


OS MELHORES APUCATIVOS 


OS MELHORES UTILJTARIOS 


OS MELHORES EDUCATIVOS 


OS MELHORES EDUCATIVOS 


Agenda Domestics 


Editor de Musics 


Aprendendo a Contar 


Matrizes CompJexas i 


Banco de Dados 


Eddy 2 GrSfico 


O Circo Chegou 


Eietrecidade 


Mala Dir«a 


Stirddy G 7 


■ Entente 


Quimica 


Con t role de Esroque 


Biorrftimo 


Major ou Menor 


Geometrra 1 


Ed Texto - Uni Wbrtl 2 


Orgao ElerrOnico 


MentalizacBo 


Sandeiras da Europe 


Contas a Pag/Receber 


GraPc Artrstrc 


Motorista Sicderal 


MatemStica 


Contabilidade Domestics 


Uni-Arte 


MissSo Resgate 


F&ica 


Agenda Anua! 


Super Synth 


Mago Vbador 


Estudo das C^Jufas 


Controie BancSrjo 


Simple Asm 


Abelha S^bra 


Curso de Jngf£s 


Planilha MSX 


Master Vbrce 


Macaco Acad^mico 


Figuras Geometricas 


Preco de Langamento CrS 5 28,00 cada coJegao mais o cuisto do Diskete on Cr S ! 


1.900,00 as quatro, incluindo diskete e urn estojo para os 4 Disketes. 


SUPER UTJLITARIOS 1 


SUPER UTILITARFOS 2 


SUPER APUCATIVOS 


PERR AM ENTAS 


* Disketes com 10 Softs 


6 Disketes com 10 Softs 


6 Disketes com 10 Softs 


1 Disco com 10 hrrsimntai 


Zapper J 


Zap per ir 


Wordstar 64 cofunas 


M 80 [Assembler) 


Linguagem CoboJ 


Turbo Pascal 


Agenda de Compromisso 


UNI TESTE fTeste Drive] 


Linguagem jyiumphs 


Tools 2 


Controie de Estoque 


UNI DIMS [Divisor Soft) 


1 


TKrtjr 1 


r AnfahiffHaWo 


e IhJI ijF~\rjr-inrs—i rAr-KW nirrtf-l 


JLAJU i 




WI iu.il/iihjuua_ 


1 'L.jfMy [ujudiduji 


Ed Mus ic + 56 Musicas 


Super Tela 


Mala Direta 


UNI PROP (Prop Eletronic) 


Lfni-Tela + 39Teias 


Print-X-Press 


Contnofe BancSno 


UNI HEAD DSK (Leitor End) 


Grafic Master 


Draw &■ Paint 


Controie de Caixa 


UNf HEAD FIT {Leitor End) 


Video Texto System 


Tf£ rdutor 


Contas d Fagar 


UNI VE1DC (V6 Grav Fita) 


Prolog 


Linguagem C 


Fdiha dePagamenro 


UN! STOP (Para Drive) 


Letras pi/impressora 


M Basic 80 


Contas a Receiver 


UNf COPY (Copador D/RD) 



Preco de Lancamento CrS 4 900,00 cad a cole^to mars o custo dos Drsketes ou CrS 12 000,00 as quatro incJumcb Disketes e dais estojos para 20 dfscos. 
CrS 523,,QQtadaprc]grama mais o custo do diskete. 



COLECAO SUPER JOGOS 1 


COLECAO SUPER JOGOS 2 


JOGOS MSX 1 - MEGAROM 


JOGOS MSX 1 - MEGAROM 


10 Disketes com 10 Jog os 


10 Disketes com 10 logos 


01 

10 Disketes com 10 Jogoi 


Of 

10 Disketes com 10 logos 


Abadra Dei Crime 


Paris Dakar 


Pinguim Adventure 


Shallow JKnrght Mare 3 J 
FI Spirit {Fdrmula 1) 


Silent Shadow 


Mask fi 


Salamander 


Gauntlet 


La Heranoa 


kings Valley 2 


Episode 2 


4x4 Road Racing 


Rintstones 


Final Zone 


Jovem Sherlock Holmes 


Dragon Ninja 


Fire Trant 


Nemesis 2 


Fantasm Sourer 


Pacmania 


Renegade Til 


Fantasy Zone 


Super Laydock 


Thunder Blade 


Kings Valley Plus 


Knight' Mare 2 


Mfrai 


Desesperado 


After earner 


Dragon Quest 


Parodius 


Harrier 


Toi Acid 1 


Gall Force 


1942 


Operation Wolf 


Zanac 3 


Digital History 


Craze 



Preco decada ColecSoCrS LOGO, GO mais o custo dos Disketes ou CrS 6 200,00 as quatro incluindo disketes e mats quatro estops para 40 disketes. Cadajogo 
Individual CrS 123.00 mais o custo do Diskete. 



COLECAO MSX 2 - NORMAL 


COLECAO MSX 2 - NORMAL 


colecAo msx 2 - normal 


COLECAO MSX 2 - NORMAL 


1 


2 


3 


4 


10 Disketes com 10 Jogos 


10 Disketes com 10 Jogos 


10 Disketes com 10 logos 


10 Disketes com TO logos 


Strip Poker 


Rad-X S 


Bank Buster 


Soft Function 


Gartner 


Chopper 


Kinetic 


Philips Designers 


Last Mission 


Laydotk 


Strike Harrier 


Prxei I I 


TNI 


Good y 


Eaffaire 


Tasword 


Perry Mason 1 


Monaco 


Sha-Ga-Raku 


fempo Typen 


Chess 


How Many Robot 


VCdrcf Goffe 


Topografie 


Th underDalJ 


Easy Tefioper 


Passengers of Wind 


Topografie Europa 


Demonstrate MSX 2.0 


Fmar Countidow 


Play Boy (sexy) 


Aerobes 


Breaker 


JP Wincle 


Michelangelo 


Teste Drtve 


Hyd Lyde 


Flash Gordon 


Poqyan 


Sprite Editor 



Preco de cada Cole^o CrS 3.000,00 mai.s o custo dos Drs ketes ou Cr S 6. 2000,00 as quatro incluindo disketes e mais quatro estojos para 40 disketes. 
Cadajogo individual CrS [06.00 mais o custo do Dfskete 



colecAo msx 2 - mega- 


COLECAO MSX 2 - MEGA- 


COLECAO MSX 2 - MEGA- 


colecAo msx 2 - mega- 


ram 1 


RAM 2 


RAM 1 


ram 4 


10 Disketes com TO Jogos 


10 Disketes com 10 Jogos 


10 Disketes com 10 logos 


10 Disketes com 10 Jogos 


Hinotorr 


Androgynus 


Labirynth 


Space Manbcw i 


Ika ri Warriors 


Rasran Saga 


Zombie Hunter 


Super Trrton 


Arkanoid 11 


Eagle War 


Vampire Killer ~ 


Baseball Konami 


Family Billiards 


Higemaru 


Out Run 


Contra 


Famide Pa rodic 


USAS 


1942 


Marble Madness 


Drres 


Zanac Excellent 


Metal Gear 


Racine Cars 


.Ash Ghine 


King Kong 


Goemon tfladrSo) 


Dragon Slayer 


Romanda 


Luprn 3 RD 


Aieste 


Drasley Family 


Boxing 


Super Ramtso 


Moon Moon Monster 


Scamble Formation 


Topfe Zip 


XeWous 


Tokyo 


Davrd Bawres 



Preqo de cada Cdecao' CrS 3 .200,00 mars o custo dos Disketes ou CrS 6 760.00 as quatro incluindo disketes e mais quatro estojos para 40 drsketes. 
Cadajogo Individual CrS 140,00 mars o custo do Drskete. 

PRECO DE DISKETES; 5.3/4 CrS 68,00 cada - 3.1/2 CrS 295,00 



PROGRAMA 

Treine caiculo de raiz com este programa 


MSX 


Raiz quadrada 


Micro: MSX 1. / 2, 
Mem6ria: 64 Kbytes 
Video: P&B / Color 
Linguagem: Basic 
Requisitos: Nenhum 



□ Antonio Pinheiro de Lima 



Quanto e a raiz quadrada de 16535? 
Pode parecer banal, mas se voce* pa- 
rou para pensar, este e mais um da- 
queles calculos concebidos sob me- 
dida para serem resol vidos com o 
auxilio de um microcomputador, 
Por que nao usar simplesmente 



uma calculadora? Porque na tela do 
seu MSX podemos obter uma apre- 
sentacao mais agradavel, e assim mo- 
tivar a garotada para a resoluqao de 
problemas que envolvam o c&lculo de 
raiz quadrada. E este o objetivo deste 
programa. 



ESTRUTURA DO PROGRAMA 

As rotinas que compoem o pro- 
grama e as funcoes por elas desem- 
penhadas estao listadas abaixo, den- 
tro dos respectivos blocos de linhas: 
50-170; InicializapSo 
190-290: C^lculo do ntimero abaixo de 
99 

310-330: Desvios para as sub-retinas ► 






TOYGAMES 

1NFGRMATICA 









1 e 2- MEGARAM 



1 A TOYGAMES INFORMATICA 

' dispoe dos melhores jogos 
para o seu MSX, oferecendo 
qualidade profissionai, novida- 
des internacionais e garantia 
dos seus servigos. 



SOLICITE 
NQSS0 
CATALOGO 
GRATIS 



SUPRIMENT0S 

•Fitas para impressoras 
'Disquetes 3 1/2 e 5 1/4 
•Formularios contfnuos 
•Etiquetas 
•Livros e Revistas 



PR0M0QA0 

•Acada 10 jogos 1 gratis 

•Preqo especial para 
pacote de 100 jogos 



Caixa Postal 30961 - CEP 01051 
Sao Paulo-SP 

Rua Galvao Bueno, 714 - Conj. 16 
Liberdade - Sao Paulo-SP 
Proximo Estagao Metro Sao Joaquim 

TONE (011)277-4878 



PERIFERICOS 

•Drives 5 1/4 e 3 1/2 
•Impressoras 
•Modens 
•Monitores 



ACEiTAMOS 

CARTAO 

DE 

CREDITO 



DESPACHAMOS 
PARA T0D0 
0 BRASIL 



ABERTO TAMBEM AOS SABADOS DAS 9:30 AS 16:00 HORAS 



UF DE* 



• Programa: RAIZ.BAS 



XO l t==:iIlS- :: = = = = = i:i -=-= ;: === + 

20 ' J Fro^ruraa: IIA1Z QUADI'tAiOAI 
40 f 

50 CO-LOU 15 , 0 P 0 : OLo : I?lPUgp : SCREEilt ; REYO FF 
GO OFE^'SH? : " A3±l : A=1 : C=lC - L*5L : Z=3 4 
71 F 31? ( 30 p 0 ) , 1 t Pa HIT 4 1 , " RA I Z QU&RADA pt 
30 PSITtl.O p O),X-!?T:iIIT4li ,, DflSflnvolvijicjito Fasso-aHpUaa" 

00 LrUE[Q,18)-( 255,13) 

x o a :i r ; = otr 15 1 m ) j ct- lem { • * R % ) s s 1 " 01 " : t 100 2 

120 P3ET(iO,33) f OiPRIUr+l*E3 

130 IFE 1- 1 7 J IE1IG03UB7 30EL35P T=30 1 G03UU 7 30 

140 Xi=G»CT-5 

150 1 

ioo G03U0300: 1 a a % o a n « r a i z 

170 0030^430: 1 prHaeira dec Inal a esq. 

130 ’ 

130 RT=LEN(5PC)*fS 
200 IE r 0T-l = lT<3£[;RT=il7/2 

210 IR-IRT ( SQR ( $P > J : Q=IR*IR ; r=SP-Q : =CTP0 <Q) S QT= LEN(H3) : (JTMI-QTl : C^C + 8 *QT 

220 PSET( L3+G*CT , 30 } * 0 : FMJJT+1 , IR 

230 fget(c,si) ,i:Pni;r?4i,Q 

240 FSET(2£,50) t 3 

250 0aAU"IC+ = rt ; If 

200 I FSP * 1 DTI IE112 30 

270 IFR^OAKDOT^OTHERC-C+a 

200 PSEiCjt f 64) f l:PRIimi»R 

290 I FT R* I R+ll f! RDTI1DM84£> 

300 * 

310 3QGUB45G: ' Jte-caleulA GP 
320 00303510:* Galcula variaveis 
- 330 0031(3540:* Imprine variaveis 
340 * 

350 p 

3 GO DRAU"3M12 P 40CL5R3F5U10" 

3 70 DRAW fr R+=Xl ; " 

3-30 P* 1 G+ 1 3 * CT > : OllAUV a:4=P w 3G rf 
3-90 Xl=13-Cr:DRA’J tr D + ^Xi ; " 

400 KEAWJsr^Pi ,43- p 

410 Xl=10-CT:DRAV ,, n+-Xl; ,p 

420 RETURN 

430 1 

440 p 

450 SP$=HID0([IR3 f A p 2) 

4G0 SP-VAL(SP$):A«A+2 
470 V3=3TR3 (SP ) iU-LEH( U5 ) 

450 nsTUitsa 
490 1 
500 1 

5-10 DR=iR # 2 

520 R$*STR3(R) :.R3=H3+SP$:0$=n$ 

&30 OaVALtO^jUsLEHtBS) !ltH= ^3* W=LEFTS(RS p W-l) J R5=DG$:K=*TH 

5 40 R-VAL.CR3 ) : G=R I rd=»I«T £ R/DR ) 

550 DR$-3T I R5{ DR) ;ftDft=3Tft£(RD) 

500 J3=3R*+RD3 : J =VAL( ) J Q= J *F.D : Q$=S-TR$(<?) ; LQ-LEW(QS) 

570 IFQ * OTIlEtlRD=RO-l iOOTO 550 

580 R^O-0 :GR>STR$< K) : 3HS»Gn5+KDS : RC ^STR® ( R ) : LR-LEH( R®) 

590 C1=U-LQ : Cl *G+S.*C1 :C2*W-LR : C2^C+G *C2 

GOO GR=VAL(GR$ ) : IR-GR 

C.10 RETLftil 

520 1 

630 1 

040 PSETfC»2) »0:PrtTNT+L p 03 

550 P3ET(C4r(((U-l)*3)-2j 1 2-K7) ,15 

GOO FSET(P t L) , IS ’ 

G70 PPINT^l^ 1 ** 2 = a DR 

G80 PSET(P f L+l 3) P 1S 

590 PRIUT^1» J; «*•* ;R3i “ = '* : Q 

700 P3ET(L3t3*CT,36) ,0: PRITIT + 1 P IR 

7lO^L=L+24 :PGET(C1 p , L j , 0 : PKlHT+L , Q 

720 PSETtC+B , L+9 ) p 3.! DBMf"B+*Pt ; 11 

730 C*C2 

740 PfiESEt C C , L 1 1 2 ) : PRirlT* 1 , n : La L-l 

7S0 C=2+23 

7G0 IFIR*IR+fl*3T3IEN34OELSEGQTQ3*0 
770 ‘ 

730 rm3=Z$+fTOS :A^3:PT=3G 
790 FPT = GT“4 : FPT a ( FPT* G ) +P T 
GOO FORP3 = PTTO FFTSTEP1 3 
aiO P3ETCPS,45) p 15 
G20 IIEXTF5 

030 RETUnil 

&40 ' 

oso Psn?ao t 22),i;PTiirsT|i t Hj rncipT: algo 2 / novo c&Lcui.n •* 

GOO Ai5-I=JPUT5{l)sRWI 



360-420: Desenha grSfico da raiz 
460-480: Separa as dezenas da dineita 
para a esquerda 

510-610: Caiculo de todas as variaveis 



640-760: Impressao das variaveis 
(posicionadas) 

780-830: IVfarca a unidade que nao en- 
tra em calculos ■ 



MICRO SISTEMAS 37 




96 SIAI 



PROGRAMA 

Desenhe no seu PC em screen 1 




PC 


Editor de desenhos 


Micro: PC XT/AT 
Memorial 512 Kbytes 
Video: CGA 
Linguagem; GWBasic 
Requisites: Nenhum 



□ Carios Rodrigues Sard 



Em combinagao com o prog rama Ant- 
macao Grafica, publicado na edicao an- 
terior de MICRO SJSTEJV3AS, aqui vai o 
prog rama Desen har, E atraves dele que 
voce eriarci os desenhos a serem anima- 
tes pelo programs Animacao Grafica, 

Este programa aproveita os recursos 
graficos da linguagem GWBAS1C para fa- 
zer desenhos na tela em SCREEN 1 (320 
X 200 pontos} e o armazenamento dos 
mesmos e feito em um arquivo do tipo se- 
quential, cujascaractensticas permitem 
as seguintes vantagens: 

- No arquivo sequencia! $io guardados 
somente os bytes digitados, os bytes de 
fim de linha e o CR; 

- Os dados gravados em arquivo sequen- 
tial podem $er controlados na feitura; 

- Os dados gravados num arquivo se- 
quence! podem ser modificados em qu- 
alquer processador de textos - os casos 
mais usados para esta finalidade sao os 
dados re I a ti vos a drcuios, retangulos, qu- 
adrados e linhas, 

Uma tela grafica, em screen 1, utilize 
16 Kbytes de memoria para qualquer tipo 
de desen ho. 0 uso do armazenamento 
em arquivos sequences permite a ma- 
nipulacao de arquivos com tamanho a 
partir de 1 Kbyte, 

Quem utiliza disquetes como arquivo 
de trabalho deve criar um subdiretorio 
para arquivar esses desenhos, caso sejarn 
em quant idade superior aos 112 arquivos 
permitidos pelo dimtorio raiz. Be todos os 
desenhos criados forem inferiones (em ta- 
manho unitSriol a 1 Kbyte de memoria 
pode-se guardar 343 arquivos em um dis- 
quete, o que equivale a muito mais do 
que TO teias grdficas armazenadas inte- 
gralmente, se nao for utilizado nenhum 
utilitario de compactacao. 




Fig 1: Esta tmpressao foi feita tedando- 
-se [fj apos fazer 4 sobreposigdes utffi- 
zando os kens 2a 5 no mesmo desenho. 




-se Ifjapos a sobreposigao dos kens 6e7. 



Mesmo assim, as teias graficas nao 
devem ser desprezadas. Neste programa 
encontramos uma opgao criada exclusi- 
vamente para transformar qualquer de- 
senho em tela grMica. Esta opcao torna- 
-se necessaria nos casos em que 



precisam os fazer sobreposicao de dese- 
nhos ou quando utilizamos uma tela gra- 
fica para referenda , Esta aplicacao d pos- 
sfvel durante a edicao de desenhos ou 
durante a sua leitura. 

0 programa micia com referencias do 
tipo 'desenhe usando setas, HOME, 
END, PG UP, PG DN, C = circulos, 
[ENTER] paraapagar, [R| retang ulo, [E] 
fin ha, [ESC] anula, tecle [S] para salvar 

0 desenho, vendoo desen ho tecle [I] para 
imprimir, [V] sobrepoe desenho em 
edicao, [FI J = instrucoes, tecle algo para 
continual. Em seguida, ser£ mostrado 
um menu principal com as opcoes de tra- 
balho: 

1 - Fazer um desenho novo 

2 - Ver desenho normal 

3 - Desenho avesso 

4 - Ver desenho de baixo para cima 

5 - Ver desenho virado 

6 - Ver desenho vertical de baixo para 
cima 

7 - Ver desenho vertical de cima para 
baixo 

8 - Modificar um desenho 

9 - Sair do programa 

Aopcaol serve para fazer egra varum 
desenho, as opcoes de2a 7 servem para 
leitura dos desenhos gravados e variant 
de posicao conform© o item. 

Na opcao 1 (edicao e gravacao) utili- 
zamos as teclas: 

Seta para cima - traca linha vertical para 
cima; 

Seta para baixo - traca linha vertical para 
baixo; 

Seta para esquerda - traca linha horizon- 
tal para esquerda; 

Seta par a direita - traca linha horizontal 
para direita ; 

[PG UP] - traca linha diagonal pa ra cima 
e para direita ; 

[HOME] - trace linha diagonal para cima 
e para esquerda; 

[PG DN] - traca linha diagonal para baixo 



3 ® MICRO S 1ST E MAS 





e para direita; 

[END] - traqa linha para baixo e para es- 
querda; 

[ENTER] - para apagar linhas utilizando 
as mesmas teclas anterlores. Para voltar 
a tra car novamente deve-se teclar 
[ENTER] nrtais uma vez; 

[C] - e utilizado para desenhar cireulos 
cujo centro e X e Y, sendo qua X pode va- 
riar de 0 a 319 e Y de 0 a 199. R d o raio 
em unidades e C a cor do circulo (3 e 
preto e 0 branco em monitor monocro- 
matico. Constdere preto o pixel verde e 
branco o fundo do monitor, isto e, sem 
nadaj; 

[R! - e utilizado para desenhar retangulos, 
sendo XI e Y1 as coordenadas do vertice 
superior esquerdo eX2e Y 2 as coorde- 
nadas do vertice inferior direito. X pode 
variar de 0 a 319 e Y pode variar de 0 a 199 
eCe igual a cor (identico ao item ante- 
rior). No caso das coordenadas XI e Y1 
serem do vdrtice superior direito a outra 
coordenada ser& a do vertice inferior es- 
querdo, mas estes dados serao sempre 
diagonals entre dos vertices de uma fi- 
gura gaometrica de 4 [ados, o que na ver- 
dade indica que esta e uma opcao para 
retangulo ou quadrado; 

[E] - e utilizado para tracer linhas: XI e Y1 
para uma extremidade e X2 e Y2 para a 
outra. Os valores permitidos para X e Y 
sAq os mesmos da opcao anterior e C in- 
dica a cor. 



[W] - para salvar o desenho em tela gr6- 
fica; 

[2] - para visualize uma tela grSfica; 

[S] - para salvar o desenho especificado 
em disco. Esta opgao salva o desenho em 
um arquivo seqiiencial; 

[ESC] - anula o desen hoe vottaao menu. 
Esta opcao nao anula pnopriamente o de- 
senho, pois um desvio para uma rotina 
de confirmacao: 'APAGA 0 DESENHO 
... DO DISCO (S/N):', casoseja teclado 
'S' o desenho ser£ apagado do disco com 
a mensagem APAGOU 0 AROUIVO 
e se for teclado 'N' a mensagem $er3 
TRESERVOU 0 ARQUIVO 

As instrucbes acima poderao ser ob- 
tidas a qualquer momento da edicao 
teclando-se [FI]. Em seguida bast a acio- 
nar qualquer tecia para voltar a editar. 

Mas opcoes de 2 a 7 (ver desenhos), 
podemos observer que eles podem ser 
vistos em varias posicoes confoirme o 
item especificado no menu. Apos a apre- 
sentacao do desenho na tela, temos as 
seguintes opqoes: 

LW] - salva o desenho em tela graftca; 
[Z] - para ver uma tela grafica; 

[VI - sobrepor outro desenho: nesta 
opcao e permitido sobrepor um desenho 
em q ualq uer posicao < itens 2 a 7 ) , sendo 
que podemos combinar sobrepondo o 
mesmo desenho em varias posicoes ou 



sobrepondo outro desenho; 

[I] - para imprimir o desenho : esta oppSo 
poderS ser substitufda se antes de rodar- 
mos o programa, o utilit^rio 
GRAPH1CS.COM do sistema opera cio- 
nal for acionado. Neste caso tedamos 
[SHIFT] e [PR SC] juntos para descarre- 
garmos o desenho na Impressora; 

[A1 - inverte o desenho: nesta opdio o 
ponto visualizado em preto passa a ser 
branco e vice-versa. Teclando-se [A] no- 
vamente volta-se ao desenho Initial; 
[ESC] - retorna ao menu principal. 

As informacoes acima poderao ser ob- 
tidas teclando-se [FI] e em seguida 
acionando-se qualquer outra tecia para 
visualizar o desenho novamente. 

Caso o leitor queira utilizar somente 
um desenho (sem sobreposicdes), o mais 
rnteressante 6 que o centro do desenho 
coincida com as coordenadas iniciais 
X=160 e Y=100. 

Q programa utiliza 16.107 bytes de ar- 
quivo bin^rio, 21.599 bytes em arquivo 
ASCII e 19.712 bytes quando compilado. 



CARLOS RODRIGUES SARTI 6 t^cnico 
em eletronica e possui cursos de Sistema 
Operational MS-DOS e Open Access. Pro- 
grama em Pascal e dBase III. 



• Programa: DESENHAR.BAS 



14 ' CAHL05 RODRIGUES SARTI - im 

12 " REJA 15 DE NOVEMBRU, 491 
14 "CEP 18324 - APIA! - SP 

Hfl DEFSTK K ■ EJEfSTR B : ti76> : B =CHft* (ZiTJ 

3* KEY 1, 1 S ' -DIN AX(83*4>KE ¥ OFF 

40 SCREEN 0, 0,0 CLS: WIDTH &0 : LOCATE 1 , I , 4, 4, 0 : PRINT 
gHHS(2«IJ ,SrRlNGi<7e h CHRJ<2&5) > fCHRK 187 > 

30 FDR N =2 TO 21 

A* LOCATE N.i: PRINT CHRSt lft6 3 • LOtA T£ H. 30: PR ENT CHBI 
NEXT 

7& LOCATE 22, 1 : PRINT STR IMGIi 79 . CHR >> 

189? 

00 LOCATE 4.12 PRINT STR IHQtOS , CHSU! I7d ) > 

LOCATE 7,12 

100 PRINT K . B ,S ,□ . L: . . K i X .3 , U . B, c , ti fcs . ti .K;K . !3 ,3, 

fi ; K ; K jK j B ; 8 Ffi j B . B ; B j K . B .9 i K i E (K i B < B ; K iS i R ^ K i'K fR i B . 

KpRpK . 0 ;K,K iK .K 

il0 LOCATE 0,12 

120 PRINT K.K ,K i K iK; 

B , tl . K . k J K } B , B ; K i h , K ■ R i K i R . S5 : B ; K i K i B . 3 , K , B . G , K , L . □ . 3 . 
K i K f K , BjSpK.B.SiKjKjK. 

130 LOCATE 9, V2 

540 PRINT iK-KiSiBi* , K i B f 8 f R j 8 i K s K « , B ; B r B + H j 

K ■, K i K , K iK i 8 r 0 iK i 0- f K pK i K t i ,E j H j B p K t B i B j K i & i-0 i K i If p 0 i @ i 
NiKf5 - B.KiK iK ;B,SiKiR 
130 LOCATE l* r i2 

164 PRINT K.K . B,B . K . K j 3 . B , KiH . B . B . BjB.KjK iKiK .0 ,fl , B ; 
K t K J K J R J « J 6 i & . B J B J K f KiK j B p B fK j B ; B f 3 i 8 ; K i 8 F0 iQ i 8 ; 8 f B ; 
K i K ; 8 i BiKiK^KiB,BpK;K 
170 LOCATE Lip 12 

104 PRINT K;KiSjBpKrKjBpBrttfK<BrBpK;B‘KiK:K;lUIC;K'BJ 

0 j B : K r.K , i-r - E! . B,K,B . K . K . !v , tl . U , , K . t' ■ S Fd K . b! . ci: - K .■ r! . b , Lf: 

KiKpBi0jiK)KpK.rBpB»KiK 

LOCATE 1^12 

203 PRINT K^KiB.EtpK.b!.8pK.Kjh(;8.B - K j K ; K . B i K : d .9. K.K. 

P.&,K.K:.'<;0-n.K;K.K;BiJCpa.S.K;K.K.B.B,K..a.B.KjK.B.B, 

K i R p K . Br8;Rpi8rS 
£10 LOCATE 13.12 

220 PRINT K^BfS ;B ;B;B+KjK;KF0iBpBF B 

BfKfK p K i ;0 ^B r 0 r KFB.BrHjK;K; B □ r H ,K r 0 , Bj 
M j R J k , K IB jS.^K JK,K .T 

234 LOCATE i4„i2:PRINT STRINGS <58 r CHR 4* 174) ) 

£44 LOCATE LH , IS 

350 PRINT CHRK4B >CHRlCA7>CHRit4n - 1 +CHR1 ( £7 ) CMt 

L(45?CHftS(Q2)C|FRSi7i? ) 

240 PRINT CHRf £7?>CKR1{ 83ICHRK 32 ) CHRS< B2 JCHR 1<79 ) CH 
RK4S) CHRi<S£>CHRSi73Ji 

274 PRINT CHRK71 >CHR1 C.05 >CHRi ( 49 ) CHRKS3 >CHR S<32?CH 
Rt ( 83> CHR9 £ 45 ) CHR* TOZi f 

£00 PR I NT CHRSt 94 JCMRK.73 }+ ‘ - 'CHfiL (49>CHR1 C 57 >CHH5 
<S7>CHR1MB*+' - ‘i 

390 PRINT CHR*<£5)CHRlte4’>CHRlT73>CHRSCi65>CHR:lf73}Clt 
F.% ( 32 ) CHRK E33 3 CHS LCB0J 

30 » FDR N n 1 TO 3000 : HEX T 

314 KEY OFF :CLS: WIDTH 40 : LOCATE 4 , 1 , 0 , 4 .. 0 PRINT 'DESR 
NHE 0 SANDD SE T A3 p HONE p END . ROUP , P SON C*C I ROULOS ■ < ENT 
1R> PARA APAGAR ' 

320 PHINT"<Ri RETANGULO, iE> LINHA, <ESC> ANULA' 

330 Pfi INT : PRINT’ TECLE <S> PARA GALUAR 0 DEBEMHQ' 

340 PR INT : PR INT' U ENOO Q DESENHO, FECLE <I> PAPA IHPR 



IftIH' 

350 PiUWT:PRrNT'< U> SOB RE POE DESENHO' 

364 PR INT: PRINT 'EM EDICAO OU VISTA {Fi> - INSTRUCOES 

370 PRINT PR ENT’ TECLE ALGO PARA CDNTIifUAR + : PRINT : P»I 
NT ' PR INT 

390 PRINT CHRLI47)*CHRS-E^7?+'CHRLtiI4l+CHRi(10B>+CHRl 
fiilKCHRti 115J *CHR1< 32 ) +CHR i ( S2>+CHRS< 46?+CHRH83> + 
CHR % ( 97 I +CHRS £114? +CHR S ( 1 1 4 } +CHR Hi 85 > . PHINlff’ - 1 99 

f 

3V8 AIPIF^UTKIS 

400 SCREEN •.0.4:CLS:LOCATE 4. 1.0. 0,0 

410 WIDTH 40 PRI«T‘ D E S E N H A ft * ■ PR INT : PH INT 

420 PR INT' i - FAEEfi Urt DEStHHQ NOVO" : PRINT 

430 PHIWT’2 - UER DESENHO' NURHAL ' PRINT 

440 PR INT .'3 - VEK DESENHO AUES5Q " : PR INT 

*50 PR INT ' 4 - UEff DESENHO DE SAIXD PAHA CIrtA'.PHINT 

*60 PRINT’S - VE« DESENHO V-I R ADO ' : PRINT 

470 PR INT - 6 - UE« DES .VERTICAL DE fiAtXQ PARA ClPlA' :P 

HINT 

480 PR I NT ’7 - UER OES . UERTICAL DE CIMA PARA BAUD’ \P 
RlHt 

490 PRINT'S - MOCSIFICAft UM DESENHO PRINT 
5«& PRINT'? - SAtR 00 PROEXAftA' 

510 AS^INKEYl; if A*-" THEN 519 

329 IF Al° ' 1 * THEN 620 

530 IF AS='2’ THEN 1 1230 

540 IF A*»'3' THEN 174B 

334 IF AS^'4' THEN 2346 

564 IF Ai*-5- THEN 204® 

370 IF A1='A‘ THEN 33SC 

580 IF A1 - " 7 " THEN 3920 

390 IF AL-'fi' THEN 446® 

AM IF THEN CLS:END 

414 IF AiO'f 0R AiO"2‘ OR AiO“3‘ DR AtO'*' QR A 

10*5* OR AGO r 6‘ OR A50’7* OR AiO'S* OR AST J ' 9 * t 

HEN 510 

420 GOTO 6*0 

630 CLOSE: GOTO *00 

640 CL5: SCREEN 1 

650 PRINT : INPUT *i-NOKE DO NCSUO DESENHO : \Gi 

660 OPEN 'O' , 1,01. 

470 X-160 :Y= 140 ' CLS : LOCATE i . 23 : PR INT ' < Fi } - INSTRIUC 
OES' 

680 LOCATE i , 5 : PJtlNT’X : * , : P R INT USING' (tKtT , ?C 
690 LOCATE 1 . 12 : P-R fNT’ T: '.:PRIWT USING " Httlt"" J ? 

700 N>1 
716 PSET()tU> 

720 Al= INKE'Yl : IF Ai”"’ tHEM 720 

730 IF RrGHTKAl. D-"H* THEN Y-Y-l : PRINT Ml, ' 0 ' ; : GOT 

6 900 

7*0 JF RIGHTKAt, i>-*P* THEN Y*Y+1. : PRINT M1.'2';:G0T 
fl 900 

750 IF RIGHTitflf, THEN X»X-t PRINT Ri.'4'.:SDT 

O 900 

760 IF SIGHTltAS. U = 'M" THEN X^X+L PRINT MI,'6 'f:G0T 
g 900 

770 IF RIGHTS ( A* , 1 S*'G* THEN Y*Y- 1 : X-X- 1 PRINT 01, '7 
' i ' GOTO 900 

7S0 IF RlGHTSIASp THEN Y»Y“1 : X-X+ 1 : PR INT 01, ^9 



' ; : GOTO 9&0 

790 IF RIGUIltAl.U'-a' THEN Y- Y+ i X=X-i : PRINT 01. 1 

* . : GOTO 900 

800 IF filGHTltftljU-'O!' THEN T»1T+ i : X-X+l : PR IiNT Ml. ’3 

’ f ; GOTO 90fr 

D10 IF AS-CHSitia? THEN N-N«-l :pR ENT 01 ,*S'j 
620 IF Al=CHRi(27I THEN CLOSE: GOTO* 5780 
834 IF Air's 1 OR Ai=’S' THEM 630 

B44 IF OR Ai«'C’ THEN PRINT 01 . *C + GO'SUB 940 

854 IF Ai='r' OR Ai-'R' THEN PRINT GQSUB 1430 

E64 ?F Ai=* e ‘ OR Ai=*r* TH&H PRINT tti , "t* : GOSUB 1139 

874 IF AS^'z' Ofi AL*’E' THEN GDSuB 529® 

880 TF AS-'w* DS A4 3 *U’ THEN LOCATE 1,1: PRINT STRING 
itatj ■ ’ ) : DEF SEG=aHQaBD:05ftUE Ql*' .PIC' r 0 r tN4»0»: LO 
CATE i ,23: PRINT* LF1> - IHSTBUCOES ' 

390 IF AWL' THEN GQSUB 5094 
900 IF N = 1 THEN PSEK XpYJ ELSE PRESET { X, V i 
910 LOCATE 1.5" PRIHT'X : ' i -PRIHT USING " " f X 
920 LOCATE 1,12: PRINT' y; ' ? : PR IN T US I If S' HHH * . Y 
930 GOTO 720 

9*0 LOCATE 1,1 PRINT STfilMGf *J 
950 LOCATE 1,1 iMPUf'X ’.Cl PRINT Ml, Cl 
960 LOCATE 1,0 INPUT'Y- ’ , C2 PRINT R1.C2 
970 LOCATE 1.16' INPUT’S : ’,C3:PRI«T M1,C3 
9S0 LOCATE 1 , 25 ; TNPUT" C : ', C* : PRINT Ml , C4 
?90 CIRCLE LCi ,C2> , C3.C4 
1040 LGCATS PRINT STRIN(31(39, ’ ’? 

1010 LOCATE 1„23-PRINT-<F1> = INSTfiUCOES' 

1020 RETURN 

1034 LOCATE 1.1: PR INT STRINGS <39 , ’ ’> 
f *60 LOCATE 1 , l : SN^uf * Xl 1 . Rl PRINT Ml ,fil 
1050 LOCATE 1 .9: INPUT' Yl: * , J?2 • PH INT #1 , R2 
1064 LOCATE 1 , 17: INPUT ' X2 : ",R3: PRINT 161 r R3 
1074 LOCATE 1,25- INPUT ' Y2 ‘ ',R4.PliINT Wi r «4 
10B0 LOCATE 1 ,33: IHPUT 'C '.CliPRINT 01, Cl 
1090 L INE < H 1 . R2 ? — ( R3 , R -4 > , Ci , B 
11&0 LOCATE 1,1 PRINT STRIMGIO?, * ’? 

1110 LOCATE 1,23: f=RlNT’<Fi> . INSTRUCOES - 
1120 RETURN 

1130 LOCATE 1.1 : PRINT STR INGf ( 39, ' ') 

11*0 LOCATE 1 , 1 : INFUT'XI ' , Rl : PR INT ML ,fi 1 
1130 LOCATE 1.9: INPUT ‘Yi * , fl 2 ' PR I NT R 1 , R 2 
1164 LOCATE 1 ,17: INPUT - X2: -.rS.prjmt 01, R3 
1170 LOCATE i,23.lNPUT-T3: ' ,R*:PRINT 01, R4 
1184 LOCATE 1,33' INPUT 'C : ' , Cl PRINT 41. Cl 
1190 LINE(Rl,R2J'(ft3,R41 r Cj 
1200 LOCATE T , i : PR INT STRINBS13?," "I 
1210 LOCATE 1,23: PRINT" fFl> = I«S¥RUCOES' 

1220 RETURN 

1230 CLS: SCREEN 1 : PRINT : INPU T '2-UER DUAL DESENHO' 

Oi : CLS 

12*0 0PEN 'I'.lpH 

12S0 X-160 Y=100 

1260 W=1 

1270 F SET t X , Y I 

120* IF EGFTU THEN 1460 

1294 INPUT Ml ,01 

1300 FOR A = 1 TO LENtAlJ 

1314 If M I Di ( A* . A . 1 > = ' 8 " THEM Y«Y-l:GOT(J l*3e 
1320 IF MJOSC Ai, A pll-*3' THEN Y*Y-i-i : GOTO 1*30 



MICRO SISTFMAS39 



133# If HIDS!ft*,A.l>”’4’ THEM X-X-I:OOTO 143# 

134# IF HIDS1AS , A, i >-"6" THEM X-X*i GOTO M3» 

1358 IF ftIDS!At THEN T-Y-iX=X-l GOTO 1*3« 

1348 IF MIDS(AS r A,i>-’9 - ™EN Y-T-IS X-X+i GOTO 143# 

1378 IF HI0t<A*,A.l]«'t* THEM Y-Y+i . X=X- 1 : GOTO 143# 

130# IF MIDI (AS , A, 1J«'3‘ THEM Y=Y + 1 ' X*X* 1 - GOTO 1438 

139# IF ftIDSCAS, A, L)-’5' THEM - 1 

5 4«# IF *ID*<AS,A,1>-*C' THEN GO3U0 15*8 
1418 IF KIDKM . A, 1>='R ' THEN GOSUB 1628 
14?8 IF MIO*<AS ,A,i>«*£* Then GGSuB 149# 

1438 IF N" 1 THEM PSEtiX.YJ ELSE PRESET!X,Y> 

1440 NEXT 
1430 GOTO 126# 

144# CLOSE 

147# fll-INPUTi< 1> 

L488 IF AS-' A’ THEN G0SU8 56 i # 

149# EF AS= - v - Oft A»-‘U' THEN GOTO 533# 

15#0 IF AS^'w'QR AS-’*' THEM DEF ££fi=flHBS8# BSAUE GI 
+* .p id ’ ,0. SH4806 

1518 IF «=■’!' OR AS=T - THEN GOSUB 4¥0# 

152# IF AS= - z;' OR AS"*Z' THEN &0SU6 529# 

153# EF Ai=CHR*t27> THEN 4#8 

1540 IF OH Ai= " A ' THEN GOSUB 3758 

1550 GOTO 14/0 

154# INPUT Mt.Ci 

157# INPUT Mi,C2 

138# INPUT Ml,C3 

159# INPUT H1.C4 

16*0 CIRCLE t Cl j C2> , C3 . C4 

1618 RETURN 

1620 INPUT Hi, HI 

163# INPUT #1 .»2 

1640 INPUT »i,R3 

145# INPUT Hi, R4 

164# INPUT Hi, Cl 

1678 LIWElHi ,R2?-!ft3,«4>,Ci,B 

140# RETURN 

169# INPUT #1 i SI 

1 70# TNPUT Ml, *2 

171# INPUT Ml. R3 

172# INPUT Mi.R4 

1738 INPUT N1,C1 

1740 LINi<Rl. f RZV-(S3jMJ,Gi 

1758 RETURN 

1740 KEY OFF ■ CLS : SCREEN 1 

1770 PRINT : INPUT’ 3-GUAL DESENHQ (AVES1 : ',GSCLS 

179# OPEN ’I * , i.GS 

179# X-i*8: Y-i-M 

1B08 N=1 

101# PSET!X,Y5 

1328 IF EOFflJ THEN 2#00 

1330 INPUT #1 , AS 

1 04# FOR ft=l TO LEHTAS5 

1S5# IF ft I PS ! AS , A , 1 ) = " B " THEN Y-Y-I GOTO 1970 

1B6# IF fllDStAi .A, !>■’£’ THEN Y=Y + i GOTO 1978 

1078 IF ftlOKftt . A, l>-= - 4 L THEN X-X-"l GOTO 1978 

1930 IF ftlOS! AS,A,i>-’* - THEN X=X-i:G0TO 1970 

1390 IF Ml Oil AS- A. i> = '7‘ THEN Y= Y-i : X*X*I : GOTO 197# 
198# IF MIDI! AS, A, U" ’9 b THEN Y-T-l : ■ GOTO 1 97* 

1918 IF MIOS!A*,A,iJ-’l‘ THEN Y-=Y+i : X=X*1 GOTO 197# 
192# IF MlDSlAS,Ail>-’3* THEM Y ^ Y + 1 : X=X- 1 "GOTO 1978 
193# IF M I OS t AS , A , i > - " 3 " THEN N=N»-1 
i960 IF H I OS f AS , A , 1 5 = ’ C ’ THEN GOSUB 2l#8 



195# IF HIDS! AS, A, 1 ) = ' R ’ THEN GOSUB 2160 
196# IF AIDS1AS, A. 1 5-'E’ THEN G05UB 223# 

197# IF N=i THEM PSET«X.Y> ELSE PRESET^, Y> 

I960 NEXT 
1990 GOTO 132# 

2000 CLOSE 

301# AS- INPUT* tii 

282# TF AS=’A - THEN G0-SU6 5410 

2#3# IF AS= - w - OR AS= - U’ THEN GOTO 533# 

204# IF AS* 1 u - Oft AI^'h' THEN DEF SE Dp 1H8 80# : 3 SHOE Si 
+* .p ic 1 ,0,414400* 

2050 IF AS- ' i ' OR Ai=’I’ THEN GOSUB 490# 

284# IF AS* - 2’ Oft AS = " Z " THEN GGSUB 5298 
2#70 IF AS-CHRS427T THEN 40# 

2#8fl IF AS- - *' Ofi Al= - A - THEN GOSUB 5750 
289# GOTO 201# 

2108 INPUT tti,CI 

2110 INPUT *1,02 

212# INPUT Ml , C3 

213# INPUT H 1 . C4 

2 1 4# C I R Gt, E ( 3B*’C V P C£ > . P3 , C4 

2158 RETURN 

214# INPUT Ml, SI 

2178 INPUT Hi,R2 

2188 INPUT M1,R3 

2190 INPUT HI , R4 

2280 INPUT Hi , C 1 

2210 LIME I 32#-“R 1 , fi2 5 -! 320-R3, H4 1 ,C4 , S 

222# RETURN 

2230 INPUT 

224# INPUT Ml,fi2 

225# INPUT HI , ft 3 

224# INPUT Hi . R 4 

2278 INPUT #1,01 

228# LIME<32#-Rl . ft2 ) -! 32H-R3 , R 4) ,C1 
229# RETURN 

238# KEY OFF CLS: SCREEN 1 

231# PRINT: INPUT - 4-OUAL DESENKD !flAI/GlMJ: ,GS:CLS 

232# OPEN ' I ’ ,1,31 

233# X-1*0: Y-^100 

234# W*1 

235# P SET ( X , Y ? 

2348 IF EOF f 1 } THEM 2540 
33:7# INPUT Hl,Ai 
2380 FOR A= 1 TO LEN<A1> 

2390 IF MIDI (AS, A. 1 >='6‘ THEM Y=Y+i:GQTO 251# 

24#0 IP HIDStAS, A. THEM Y=Y- 1 : GOTO 2518 

241# IF MIDS! AS, A, 1 )=^‘ THEM X=X+ 1 : GOTO 2510 

242# TF H1DS1AS, A, 1 THEN X-X-HGOTO 2510 



320# TNPUT Hi, Cl 

329# L 1NE<R 1 > 28#-R3>- ( H3, 2**'-R4 ) *Ci , B 

33 #0 RETURN 

3310 INPUT #l,Ri 

332# IMPUT H1.R2 

333# INPUT HI . K3 

3348 INPUT Hi,R4 

335# INPUT HI , Cl 

33*0 LIME<R1 r 288-R2)-tR3,28«-R41 ,Ci 

3370 KETUSM 

33B0 KEY OFF CLS:SCREEM 1 

339# PRINT - INPUT " 6-GUAL OESENHO (U.S/qiMA> 
340# OPEN ‘ I ‘ , 1 , Bl 
3418 X-160 Y=-i0# 

3420 N*t 
3438 PSETCX.Y) 

344# IF EUFtll THEN 3628 
3438 INPUT Hi, AS 
3466 FOR A - 1 TO LEINT AS > 



243# IF ftIDilAS. A. 1 >- 
2448 IF MIDS1AS. A, i>= 
2438 IF MIDS(AS,A,1J 
24*0 IF HIDS( AS, A. U 
2478 IF rtIOS£AS,A,ll 
2480 IF MJDS ( 05 , A . 1 J 



THEN Y= Y+ 1 ' X-M-t-i 
THEN Y-Y+l X=X-1 
THEN Y = Y- 1 : X=X*1 
"3" THEM Y = Y- 1 : X - X "■ 1 
L 5‘ THEN N*M*-1 

THEM GOSUB 264# 



GOTO 251# 
GQTD 251# 
GOTO 251# 
GOTO 2540 




2498 IF M!6i(At,A,lJ-'R' THEM GOSUB 37fl» 

2380 IF MIPS(ASjA,l J m " E ‘ THEM GO3U0 277# 

251# IF N = i THEN PSET(X,Y> ELSE PR’ESET ( X, Y> 

2520 NEXT 

.253# GOTO 2360 

2540 CLOSE 

2350 AS= INPUTS* 11 

256# IF AS='A" THEM GOSUB 561# 

257# IF AS*’v’ OR AS = 'V THEN GOTO 533# 

2SS# IF AS= - LJ “OR AS=>' THEM DEF SEG=-SHB"B00 &SAUE GS 
.p ic* . 0,AH4#e0 

259# IF A4-'i" OR AS= - I - THEN G0SU8 4900 
26# 0 IF AS= - z - OR A%='Z’ THEN GOSUB 5290 
2610 IF A% = CHR4-£2?1 THEM 400 
2620 IF AS a ’ a* OR AS= - A - THEM GOSUB 575# 

2630 GOTO 255# 

2640 INPUT Hi, Cl 

2*5# I MRU) Ml, £2 

266# IMPUT Hi, £3 

2*7# IMPUT Ml , C4 

2600 CIRCLED 330-C 1 , 208-C2 > . C3,C4 

2698 RETURN 

27# 0 IHPUT Hi, El 

2710 INPUT Hi, HR 

2720 INPUT Hi, (13 

273# IMPUT #t,S4 

274# IMPUT Hi , Cl 

275# LINE ( 320- fi 1 . 2##-R2> “ < 320-R3 , 28#-S4 1 , Cl , B 

276# RETURN 

277# IMPUT Hi, R1 

2780 INPUT Hi , R2 

2/98 INPUT Hi , R3 

23#0 INPUT Hi , R4 

2318 INPUT Hi, Cl 

2328 LI WEt 32#- ft! , 2#0-R2 ? - t 32#-fi 3 , 288- R 4 > , Ci 
283# RETURN 

2840 KEY OFF CL&:5CREEN i 

285# PKlNl : INPUT’5-OUAL DESENHO UIRADC - , GS : CLS 

2264 UP EM - J- . 1 ,SS 

207# X-=1*0: Y-100 

2868 N*1 

2B90 P SE T < X , Y ) 

29# 8 IF EOF( 1 > THEN 3880 

2910 INPUT Hi, AS 

2920 FOR A= 1 TO LEMtASJ 



2938 


IF 


M I OS i AS , A , i ) = ' 


'e - 


THEN 


Y-Y-l : GOTO 3850 




2940 


IF 


MIDS ( AS . A , I I - ' 


2 - 


THEN 


Y°Y— i : GOTO 303# 




£95# 


IF 


MJOS(AS,fi r l )=' 


4 - 


THEM 


X*X“1 : GOTO 305# 




2960 


IF 


M1DS(A5,A. 1 )=’ 


6 1 


THEM 


X=X+i : GOTO 305# 




297# 


IF 


MIDS( AS, A, 1 3=' 


'7~ 


THEM 


Y»Y'*1 ' X-X-l : GOTO 


3#50 


290# 


IF 


rtlDKAS.A, 1 >■' 


- 9’ 


THEN 


Y=¥ +1 X-X4 i : GOTO 


3#58 


2998 


IF 


HIDKAl.A, 11- ' 


‘i* 


THEN 


Y-Y-l X-X-l GOTO 


3850 


38## 


IF 


ft IDS! AS , A . 1 1= ' 


' 3’ 


THEN 


Y-Y-l • X^X+1 : GOTO 


3050 


3010 


IF 


ft IDS! AS .Aril-' 


‘5’ 


THEN 


N=N#-l 




3020 


IF 


MID*! AS .A,1J- 


'C 


THEN 


GDSU3 3 IS# 




3# 30 


IF 


MIDS C AS, A, 1)^' 


- B " 


' THEM 


G0SU8 324# 




3#40 


IF 


M3DS( AS, A, 1 


- E " 


THEM 


GOSUB 33 i# 




3#5# 


IF 


N-l THEM PSET ! X , 


Y 3- ELSE P RESET (X,Y> 





MIDS! AS, A. 15*' 


‘8’ 


THEN 


X-X-l : GPTO 


359# 


MIDS (A*. A. 1 


’2’ 


THEN 


X=0!M GO T O 


3598 


PI I D5 f A* , A , 1 5- = ‘ 


L fl - 


THEN 


Y=Y* 1 GOTO 


3390 


M IDS ( AS . A , 1 ) - ' 


' A - 


THEN 


Y-V-I :GOT0 


3398 


M IDS? At . A, 1 >* H 


' 7* 


THEN 


X^X-1 Y-T-l :GOTO 


ft IDS! A* , A , i>=' 


9' 


THEN 


X-X-l Y-Y- 


1 : GOTO 


ft IDS! AS , A , t > ” ' 


f l' 


THEN 


X-X+i Y«Y+ 


1 : GOTO 


MIDS (AS, A, If-' 


- 3 ' 


THEN 


X=X*1 ; Y=Y- 


1 GOTO 


MIDS! AS, A , 1>- 


"5 ’ 


THEN 


N-M--1 




M IDS (.AS, A , 15- 


f c‘ 


THEN 


GOSUB 3720 




NIJJS! AS, A, 1> = ' 


- R " 


THEN 


GOSUB 378# 




MI DSC AS .A, 15- 


■E’ 


THEM 


GOSUB 3558 





3590 IF N= 1 THEN FSETIX,Y) ELSE PRESET (X.YJ 

3*00 NEXT 

361# GOTO 3440 

362# CLOSE 

3630 AS=INPUT5{15 

3648 IF THEM GOSUB. 561# 

3650 IF Al=’v’ OH AS-'O’ THEM GOTO 5330 

36*0 IF AS='U'aS fhi-'m' THEN DEF 5EG = *H0a90 BSAUE GS 

+ ' ,p jq ' .0, SH400# 

3670 IF AS= " i " OH AS-*I‘ THEN GOSUB 4900 

3600 IF AS- - 2* OR AS="I" THEM GOSUB 5290 

3*9# LF A4=CHRS(27) THEN 480 

370# IF AS* - * - OR A*= - A’ THEN GOSUB 5750 

371# GOTO 3630 

3720 INPUT HI , CI 

3738 INPUT Hi , C2 

3740 IMPUT Hi,C3 

3750 INPUT Ml , 04 

3760 CIRCLEIC2*6#, l20#-lCi-*0 > >> ,C3.C4 

3778 RETURN 

378# INPUT Hi , R 1 

379# INPUT Hi , R2 

38# 8 INPUT Hi .R3 

38 5 0 INPUT Hi , S 4 

3320 INFUt HI i Ci 

3830 LINE ( R2*68, l20#-<«l-*0) >>-<R4+64>. ( 20#- ( R3-4#> > > 

304# RETURN 
3B50 INPUT Hi,Rl 
30*8 INPUT HI , R2 
3870 INPUT HI.R3 
3800 INPUT Hi , R4 
3890 IMPUT Ml , Ci 

390# LINE ( R2+68, C 20#-<R l-*0 ) > J-1R4+4*. ( 200- ( R3 -*#> ) ) 
,Ci 

3918 RETURN 

3?a# )£ OFF : CLS : SCREEN 1 

3930 PRINT INPUT’7- OUAL DESENHO< U,C/BAlXO H ,GS:CLS 
3940 OPEN *l n ,1,G5 
3950 X=i6fl Y'l## 

39*0 N 1 ! 

3970 PSET ( X , Y > 

3960 IF EOF { i ) THEN 41*8 
399# INPUT Hi, At 
40#0 FOR A=t TU LEM<At> 

4010 IF rtlDt< At . A . I - 0 ' THEN X-X+l 
4020 IF MIDI ( AS, A r I5“'2 - THEN X=X-1 



GOTO 4130 
GOTO 4130 
□□TO 413# 

□QTD 415# 



Y=Y-i 
Y^Y+i 
Y = Y“i 



THEM T=*Y 
THEN X*X+i 
THEN X-X+l 
THEN X=X-1 
THEM K*X-1 ■ Y=Y+i 
THEN N=N*-i 
THEN GOSUB 4260 
THEN GOSUB 432# 
THEN GOSUB 439# 



GOTO 4130 
GOTO *13# 
GOTO 4 I 30 
GOTO *130 



386# NEXT 
3078 SOTO 29#* 

30B0 CLOSE 
3090 At= INPUT** i! 

3100 IF AS- THEM GLI2LJD 5*1# 

3118 IF AS = - v " GR A t* - U L THEN GOTO 5338 

3128 IF flS-'U"GK THEM DEF SEG=BH8800 : 3SAUE GS 

+ '*P r c " . & . SH4&80 

3130 IF AS = " i " OR Al-’T' THEN GOSUB 4988 
3148 IF A*“7z" Ofi AS- - 2* THEN GOSUB 5290 
3150 IF AS = CHRS(.27> THEM 408 
31*0 IF Af='a“ OR AS= ' A - THEN GOSUB 5750 
3178 GOTO 309* 

3t0# INPUT tti.Cl 

3198 INPUT HI.C2 

3280 INPUT H1.C3 

321* INPUT H1-C4 

3220 C I R CLE t C 1 , £#H-C3 ) . C3, 04 

323# RETURN 

3240 INPUT Ml, ft! 

3250 INPUT HI , R2 
3268 INPUT Hi , R3 
3270 INPUT H1.R4 



4# 30 IF HIDS( AS. A , 1 )=’4 - THEM Y-Y-i 
4040 IF MIDS(Ai.^,n=" 

405# IF NlDSiAS.A., 1 )- 
406# IF HIDS1A1. A, W='9‘ 

407# IF ftIDSlAl. A. 1>- - 
4038 IF 11 1 OS 1 AS ,A, 1 )■ = ’ 

4098 IF MIDS1 AS, A, i>= - 
4100 IF HIDS<AS , ft , i > ■ ' 

4118 IF MI 0% (ft! ,A,lt = * 

4120 IF MIDS!AS,A, i J- " 

4130 IF N= 1 THEN FSET1X,Y? ELSE PRESET <X,Y> 

4140 NEXT 
4150 GOTO 3968 

4iA# close: 

4178 At * INPUTS! 1 ) 

4180 IF AS=‘« i THEM GOSUB 5610 
4198 IF AS= " v - OH AS= , 'U‘ THEN GOTO 3338 
4288 IF AS" ’U ’OR ft 4= " u " THEN DEF SEG = AHB00# : BSAUE G1 
+ ■ , p i e ’ , 0 , S.H400# 

4210 IF AS = ’ i ' OH AS= ’ I ’ THEN DOSUE 490# 

4220 IF AS-’i’ Oft AS="Z ’ THEM GOSUB 529# 

4230 IF AS-CHR*rZ7> THEN 400 
424# IF AS= - *’ OR AS= i ft’ THEM GOSUB 575# 

4250 GOTO 4178 
426# IMPUT Ml. Cl 
4270 IMPUT Hi , C2 
4288 INPUT Hi,ca 
4290 INPUT #1 , C4 

4300 CIRCLE! ( 32#-< C2+40 1 1 . iCl -*#> > , C3. 04 
431# RETURM 
432# INPUT Ml ,Ri 
4330 INPUT HI. R? 

4348 INPUT Hi,R3 
435# INPUT HI , R4 
4360 INPUT HI ,C 
4378 LINE U320-IH2*60) > , C R i “ *# > T — t 4 32# - ! B 4+ *# 3 J , tS3- 
68 ) > , L , 8 
43BB GETURW 
439# INPUT H 1 , R1 
4400 INPUT Hi , R2 
4410 INPUT #i,H3 
4420 INPUT Mi , R4 
4430 IMPUT Vl.C 
444# LINE? (32#- (B2+60J > , < ft 1-60 ) }- ( 020- ( R4+60 )•) . <R3- 
6# > > , C 
445# RETURN 

4460 KEY OFF : CL8 - SCREEN 1 

4470 PRINT INPUT - a-MOOIFICAR flUftL DESENHO ' ’,61 

4480 OPEN M'.i.CI 
4490 X-Ua:TPl#*.CLS 

450# N"i. LOCATE 1 .23 : PRINT - ?Fl3 - IHSTHUC0E5" 

4510 PSET ( X , Y > 

4520 IF EOFtll THEM CLOSE: OPEN - A’ , 1 , GS : GOTO 720 
453# INPUT Hi. AS 
4 £40 FOR A - 1 TO LlHC AS1 

455# IF ftIDKAS.iA, 1 }- - 8 - THEN Y-Y-l GOTO 4*70 

4568 IF ft I DS ( AS ,4, 1 ) n * 2 THEN Y-T + UGOTO 467# 

4578 IF ft 1 01 ( AS , A . i > = ' 4 ' THEN X-X-l GOTO 4*70 
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45 B® 


IF 


HIDS ( AS , A , 1 > - ' 


6' 


THEN 


X*X*i;GCTd 4*7® 




439® 


IF 


HI DS { AS , fl , 1 > - ' 


'7' 


THEN 


Y"Y— 1 : X-X-l : GOTO 


467® 


4600 


rr 


HIDSCflS, A, D ■' 


"9" 


■ 7 HEW 


Y-Y-l : X»X+1 r GOTO 


4*78 


4*1® 


IF 


Hi DS ( AS . A , 1 9 


1' 


THEN 


Y»Y+1 : X-X-i - GOTO 


467® 


4*24 


IF 


HIDS (AS, A. 1 9 ■' 


a- 


■ THEN 


Y-Y+l rX-X+1 : GOTO 


467® 


463® 


IF 


rtlDStfi^.A. O-' 


3 


THEN 


1 




4*4® 


IP 


HIDSCAS.A, 1) 


c 


' THEN 


iQCSUB 470 4 




443® 


IF 


niDKAS. A. 1 9 * 


"R ’ 


' THEM 


GQSU0 474® 




466® 


IF 






' THEN 


•QOSUS 4S3® 




4*7® 


IF 


N=1 THEN F5£T(X, 


Y > ELSE PRESET (X.Y> 





468® hext 
469® GOTO 452® 

470® INPUT (II, Cl 

471® INPUT ttl.CZ 

472® INPUT #i,C3 

4730 INPUT dl ., C4 

474® ClRCl_E(Cl F C2) ,C3,C4 

475® RETURN 

4740 IMPUl 1 HI r !l 

4770 INPUT Ml .ft? 

478® INPUT Mi. S3 

477® INPUT Mi. £4 
40®® INPUT Ml, Cl 
461® L I NE £ R 1 . H2 > - t H3 , K 4 > . C 1 , E 

4820 RETURN 

463® INPUT Hi. Si 

4B4® INPUT Nl,R2 

485® INPUT HI. S3 

406® INPUT H1.R4 

4870 INPUT Ml, Cl 

400® LINEtRl , K?)-lR3^4>, Cl 

407® RETURN 

49®fl OPEN 'LPTi : ' AS Ml 
4?ie wiftTN Mi, 533 
492® PRINT #1,CKRS<34>; 

493® PRINT Mi .CHR^EFJj *Hl' ;CHRS i8) i 
494® GEF 5EG-SH0S0® 

495® FOR A, - « ID 7! 

494® PRINT Ml.CHftl(?7)i 'K' iCHRf (144J rCHRSfU i 
497® B-A+ftRiEF* 

498® FOR C=i TO ifl® 

499® D-PEEK L 0 ) : E -P E£K t B + £j-I2®®& ? 

50«& PRINT Ml r CHRi(E>jCHRS(E^CHRlfD>JCNHlED> J 
5010 B-fl-B* 

5®2® NEXT 

503® PRINT M,CHRf<13)lCHS*U*>> 

3® 4® NEXT 

5®5® PRINT ttl.CHfii(13) ; CHHK 24 > i CHUTi ?7) ;CHRS(5G>i X 
LOSE 

3® A® LOCATE 23.0" PR INT'TECLE CESO PAHA RETDRHAR " 
3®70 AS=INFEYS : IF AS( 1CNRK 27 1 THEN 3®7® 

50 Sft RETURN 

509® GET<®,9J- (319,199*, AX 

510® SCREEN 0,0.e:UTDTN S0 :CLS : LOCATE i , 26. ® . 0 , ® : P R r 

NT' . ,IN5TKUCpE5 DE EDICA0. . ‘ 

34.10 PRINT'SETA * 1 C,HRl C 2® J j ’ - TRAC® L III HA PAftA Cl NA 

512® PflINT'SfiTrt ■ i CHRS<2H)r - TRftCft LIMHfi PARA BftlX 

o' 

313® PR I WT' SETA * , CHflS( 2* i j' - TRACA LIHHA H&RIZDWTA 



L PARA DIR E3 IA- 
SI 4® PRINT ' SETA ;CHRS(27>i' - TRACA LIHHA HORIZQNTA 

1 PARA EgaUtlHM' 

315® PR I HI- TEC LA PGUP - TfiftCA LIHHA DIAGONAL PARA Cl 
HA E D3REITA" 

516® PR rWT’TECLA FQDH - TRACA LIHHA DIAGONAL PARA BA 
1X0 E DIREITA- 

317® PR I NT 'TECLA HONE - TRACA LIHHA DIAGONAL PARA Cl 
HA E ESGULMDA' 

3100 PR INT'TECLA END - TRACA LINHA DIAGONAL PARA 0AI 
X0 £ ESdUEROA- 

3190 PRINT' TEEL A CENTER? - PAR A APAOAR LINHA USANDQ 
AS TECLAS ACTHA ' 

52®® PRINT - TECL A <C> - PARA DESEWHAR CIRCLJLDS X ■£ FH 
TRE ® E 31 9 J =CGDRDEnAQA ' X ' Y CENTRE ® £ 1999-COOftnE 
NADA 'I' (CENTRO DO CtHCULQ>J R-RAIO 00 CIRCULQi C-C 
QORDENADA DA COR ( 3-FRETQ S-ERAHCDI 
521® PRINT ‘TECL A (R> - PARA DESENHAR RETaNGULO - Xi 
(DE * A 319-1 £ Yi (DE # A 1WJ-C0DRDENADAS J X' E t 'f t 
CD VEfiTICE SUPERIOR EEQUERDU J X2 (DE 0 A 3i¥) E T 

2 (DE ® A 199.1= COORD ENADflS ' X ' E J Y' DO UERTICE IHFE 
R I DR DIflEl TO . C ■CUR ( 3 -PRC TO *=B RAN HO 1 ' 

522® PRINT'TECLA <E> - PARA DESENHAR LINHA - Xi £ Ti 
-CODR DE MAO' AS J X ' £ J ~Y* DE UNA DAS ESTREHEDAOES. X2 E 
Y2=EO0RDENADA5 X' £ 'T r DA DUTRA EXTREMIDADE , C=C0 
RO-PRE 0= Bfi A> " 

5230 PRINT " TECL A < \4 > - PARA SALVAR EM TELA GRftFICA' 
5240 PRINT 'TECL A <Z> - PAKA O&SEftVAR UJM TELA GflflFIC 

A’ 

525® PRINT 'TECLA <S> - PARA SAL OAR O DESBMHO ESPECIF 
ICADQ EH DISCO' 

324® PRINT * T ECL A < ESC 5 - ANULA 0 DESEN HO E VOLTA AO 
MENU* 

527® PRINT" ...T£CLE ALGO PARA RETORHAR A EDITAS 

. . . ' AS-IMPUTK 1) 

320® SCREEN 1P UT < 0 , ® > , A S ' RETURN 
320® 0E T { ® . ® i -T 3 i 0 . 1 99 J , AH 

3300 c us ■ I N P UT ' QUAL TECLA DR AF I C A : ", TS 

331® DEF SEG=HH0fi®® : BLDAD T£+‘ _PIC 

5320 Ai^tfiPUTfti) : CL S: PUT i®.*), AX : LOCATE 1,23:PH3NT* 

<F 1 > - I HSTR UC fl£S V R ETURN 1 

533® GET (•.»>- <319.1 991, AZXLS 

534® SCREEN 0,®.®: WIDTH 4B : CLS : LOCATE 4. i ,0,8,0: PRIM 

T'SDBftEP OR' 

333® PRINT PRINT PHI NT '2- SDBH-D2SEMH0 NORHAL ' : PR IWT 

536M PRINT'S- SO0R , DESENHG AUESSO' : PRINT 

5370 PRINT '4- 5C1BR . DESEhHO DE HAIXO PARA CINA' ; PRIMT 

33S0 PRINT ‘5- SOBR.DESEHHC urHttDQ’ : PRINT 

5390 PRINT ' 6- SOAR , DEB.UCRTICAL DE BAIXO PARft CIMA': 

PRINT 

54®0 PRINT '7- SOBR.DES. VERTICAL DE CIHA PAfiA BAIXO* : 
PRINT 

54 i ® Ai- 1 WHEYS : IF At=“ THEN 341® 

542® IF AS-'2' TUEN 5490 
543® IF AS='3' THEN 531® 

5440 IF AS-'4' THEN 553® 

545® IF AS='5* THEN 3350 
544® IP AS-'fi' THEN 5570 
547® IF AS-V THEN 5598 

£48® IF ASO"2' OR fliO'3' OR AIO'4' OR AS4>"3' OR: 



AS<J'4' Oft AS f > 1 7 ' THEN 3 41® 

3490 SCREEN 1 : C LS : INPUT'SflBREPOE HORNAL-flUAL \Gi : C 
LS 

33®® PUT (0,01 ,AI: OPEN "I * . ! , GS : GOTO US® 

331® SCREEN 1 : C LS : INPUT 'SOBREPOE AUESSO-flUAL • ' , GS : C 

LS 

532® PUT < ® , ®J . AX - OPEN * I * , i , GS : GOTO t79* 

553® SCREEN i : CLS : INPUT 'SOBREPOE B A I/C 1 H— G UAL - ’ , GS 
ELS 

554® PUT <®,#1 J AZOPEM ' I * , 1 , 6S - GOTO 233® 

355® SCREEN 1 CLS : INPUT " SOBREPOE yiRAOO-dUAL- ',GS:C 
LS 

354® PUT (0.99 , AX : OPEN ' I ' . 1 . GS : GOTO 2S7® 

3570 SCREEN 1 CLS : INPUT’ BDBREPEE U . B A I/CIM-OU AL : * F 0 

S-CLS 

358® PUT (0.19. AX: OPEN ' I ' . 1 „ OS : GOTO 341® 

3S90 SCREEN 1 " CLS ■ INPUT’ SdBREPDE U , Cl W/6 AI-OUAL : ' . G 

41 CLS 

360® PUT (0.99 , A 5! : OP EH ' I ' . 1 . GS : GOTO 395® 

3*1® GET (0, 01-019, 1991 .AZ: CLS 

562® SCREEN 0,0,0: LOCATE 1 , 1 , 0 ; 9 , @ . FRINT PRINT PAINT 

■UEHDO □ DESEHHQ' 

3*3® PfilHT : PRINT’ SUAS OPCBEB SAG ' 

564® PRINT: PRINT 'TECLA {«> - SALVA A TELA GRAF IGA' 
3*5® PRINT : PRINT’ TECLA C2T1 
564® PRINT :PRIWT'TECLA (V> 

5*7® PRINT: PRINT ’TECLA (I> 

56G® PRINT : PRINT' TEC-LA <A > 

3*90 PRINT 
370® PR IWT : PRINT ' TECLA (Fi> - A JUDA ' 

571® PRINT : PR rWT*TEC La iES C > - VOLT A AD HEHU' 

372® PRINT PR IMT: PRINT ' TECLE A1.00 PARA RETQRNAR ' 

5/3® 8S=rWPUTS(l) 

574® SCREEN i : CLS : PU=T(® , ® 9, AX : RETURN 
5750 GETl&.i)-* 319.199), tO. 

576® FUT(®,0^flZ, PRESET 
577® RETURN 

37S® SCREEN ® . 0 . ® : M I DTN 8® 

3790 CLS: LOCATE 5. t , 1 * 3. 6 : PR INT'flPAQA 0 DESENBO ‘jHI 
i 00 DISCO ( S/ll) ’ 

580® AAS- INKEYS : I.F A AS* ' ’ THEN 580® 

5S1® IF Afll-'S' OR THEN PR IM7 PR IKT'ftPAGOU Q 

AR OUI UO ' ; OS : K ILL GS : GOT O 58 3® 

=929 IF AAStrs' OR dASO"s* THEN PR INT : PRINT "PRESER 
UOU o ARW3YQ * i£i 

503® PRINT -PRINT PR IHT'TECLE ALGD PARA CDNT INL'Aff ' AS 
■INPUTS ( 1 > : GOTO 4®e 



UER UHA T£LA GRAFICA' 

■ SD&fiEPOH OESENHC 
I HP R I M S R OESENKQ" 
I«yERTE TELA E DEBENHO’ 





CHAMPION SOFTWARE LTDA. 

Rua Clelia, 1837 — Lapa 
CEP 05042 — Sao Paulo — Capital. 
Caixa Postal 11.844 — Fone: (011)65-2030 



NA CHAMPION SOFTWARE LTDA., 

voce encontra os melhores jogos. qualidade 
profissional, garantia de seus servigos 
e o melhor prazo de entrega. 



AQUI VOCE ENCONTRA SOFTS DA: 
PAULI SO FT, SOFTNEW, NEMESIS, 
XSW e o Exelente E. V. A. 



Drives, Catxa de Acrflico para Discos, Disquetes, 
Formularios Contfnuos, Capas para Equipamentos, 

Livros, etc. 

PEQA CATALOGO GRATIS 
OU VI SITE NOSSO SHOW ROOM. 



ATENDEMOS TAMBEM AOS SABADOS DAS 9:30 AS 15:00 HORAS- 





ROTIN A 

Imprima suas telas em varios tamanhos 



Rotina de impressao 



AASX 

Micro: MSX 1. / 2. 

Memoria: 64 Kbytes 

Video: P&B / Color 

Linguagem: Basic 

Requisitos: Drive 

Impressora 



□ Munif Gebara Jr. e Ricardo T. Saito 



Que tal poder criar variacoes na impressao de seus tra- 
balhos? 

Esta rotina para o GRAPH OS III versao 1.2 possibilita 
a impressao em varios tamanhos, utilizando-se uma im- 
pressora padrao Epson. 

O metodo empregado consiste em usar os modos de 
simples, dupla e quadrupla precisao e repetir os bytes en- 
viados & impressora, de modo a produzir diferentes lar- 
go ras de impressao, 

A linha 230 do programs contem uma tabela de va- 
lores, onde o primeiro byte corresponde ao cddigo AS- 
CII que ativa o modo grAfico (K,L,Z) e o segundo, o nu- 



mero de vezes que o byte e repetido. No nosso exemplo, 
os valores s§o 75 e 1. 

Podem ser conseguidas ao todo onze combinapoes 
para a impressora de 80 colunas. No entanto, optamos 
por utilizar apenas oito. 

Agora, com o apoio dessa rotina, voce pode ate com- 
por seus textos, dando maior ou rnenor finfase as pala- 
vras que preferir. g 



MUNIF GEBARA JUNIOR 4 estudarvte e programs em BASIC, 
Logo, Cobol, dBASE It e III, al&m de Assembler Z80. 
RICARDO T. SAITO cursa o CEFET-CTBA e pro grama em BA- 
SIC, Cobol e Assembler Possui um MSX. 



• Programa: AUTOEXEC.BAS 



10 KEYOFF : WIDTH 39 ; SCREEN2 : C0L0R1 ,4 ,4;CLS 
: POKEKHFCAB, 255 : BLOAD"GRAPH . BIN” ,R: FORA- 
1 TOl 000 0 : I F INKEYS - " " THEN20ELSENEXT 
2 0 B LOAD” GRAPH . CtID” : DEFUSR-S.H922E : SCREEN 
0 : BLOAD "GRAPH . LTR" , R : COLOR1 , 15 : PRINT”GRA 
PROS III (C)~ 1986" : PRINT "Renato Degiov 
ani ” : PRINT : PRINT 
30 ' 

40 PRINT"Dese ja a pergunta: (D) isco (C)a 

ssete ” ; : A” INPUTS ( 1 ) : PRINTA$ : PRINT : PRINT 
5 0 I FA$= "N ’'THENPOKE8.HAEC4 . ILHA7 : POKE1HAE6 
5 , 8.HC9 : GOTO70 
60 I FA$ ”S "THEN40 
70 * 

80 A$-”D” 

90 IFA$-="D"THENPOKE6.HB58B, 253 : POKEKHB58C 

,7:0010110 

100 IFAS”S"THEN80 

110 PRINT"MODO DE IMPRESSAO" 

120 PRINT" [ 1 ] SIMPLES PRECISAO NORMAL" 
125 PRINT" [2] DUPLA PRECISAO PEQUENO" 

130 PRINT” [3] DUPLA PRECISAO NORMAL" 

140 PRINT” (4] DUPLA PRECISAO LARGO” 

150 PRINT” [5 } QUADRUPLA PRECISAO PEQUENO 



160 PRINT" [6] QUADRUPLA PRECISAO NORMAL" 
170 PRINT"[7] QUADRUPLA PRECISAO MEDIO" 
180 PRINT" [ 8 ] QUADRUPLA PRECISAO LARGO" 
190 PRINT 

200 LOCATE 0 , 23 : INPUT” OPQAO" ; OP 

210 IF 0P<1 OR OP>8THEN200 

220 RESTORE230 : FORA-1 TO OP : READV1 , V2 : NE 

XTA 

230 DATA 75,1,76,1,76,2,76,3,90,1,90,4,9 
0,6,90,7 

231 RESTORE232: FQRA-0TO9 ; READAS ; POKEAHC 2 
46+A , UAL { ”KH"+A$ ) : NEXTA 

232 DATA C5 , 06 , 04 , CD , AS , 00 , 10 , FB , Cl , C9 
240 POKEK.HC1F 2 , VI : POKEKHC1 FC , V2 : POKE8.HC2 
48, V2 

250 POKE8.HC213.KH46 
260 A=USR(0) 
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